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This manual is the third in a series of 
four manuals providing detailed information 
about the VSE/Advanced Functions Logical 
IGCS programs. The four manuals are: 


Volume 1: General Information and 
Imperative Macros, LY33-9116. 


Volume 2: SAM, LY33-9117. 


Volume 3: DAM and ISAM, LY33-9118. 


Volume 4: SAM for DASD LY33-9119. 


This third volume is intended mainly for 
persons involved in program maintenance and 
for systems programmers who are altering 
the program design. Logic information 15 
not necessary for the operation of the 
programs described. 


General routines that apply to more than 
one access method or more than one file 
type are described in Volumes 1 and 4. 
These routines include open/close and a 
number of transient routines. References 
to Volumes 1 and 4&4 are made whenever 
required for a good understanding of the 
topics discussed. 


This volume of the VSE/Advanced 
Poe rene LIOCS manuals consists of three 
parts: 


Le LIOCS support for DAM files 
2x LIOCS support for ISAM files 
3. Charts. 


Parts 1 and 2 supply descriptions of the 
declarative and imperative macros, DTF 
tables, and initialization and termination 
procedures for each of the file types 
described. Part 3 supplies the detailed 
flowcharts associated with the descriptions 
in the first two parts. 


PREFACE 


The appendixes in the back of the manual 
provide maintenance personnel with the 
service aids: 


Le Label list 
2% Message cross-reference list. 


Effective use of this publication requires 
an understanding of IBM VSE/Advanced 
Functions operation and the Assembler 
language and its associated macro 
definition language. Reference 
publications for this information are 
listed belon. 


PREREQUISITE PUBLICATIONS 


e VSE7Advanced Functions Macro User's 
Guide, $C33-6196. 


e VSE/ZAdvanced Functions Macro Reference, 
S$C€33-6197. 


e OS/VS - DOS/VSE —- VM4370 Assembler 
Language, 6C33-4010. 


RELATED PUBLICATIONS 


° VSE/Advanced Functions Diagnosis 
Reference: Supervisor, LY33-910/7. 


e VSE/SP Messages and Codes, $C33-6181l. 


d 
For other related publications, refer to 
IBM System/370 and 4300 Processors 
Bibliography, GC20-0001 
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Direct Access (DA) files refer to files 
contained on DASD devices and processed by 
the Direct Access Method. Note that the 
term Direct Access applies to a method of 
processing DASD records and not to a type 
of file organization. 


DIRECT ACCESS METHOD 


The Direct Access Method provides a 
flexible set of macro instructions for 
creating and maintaining a data file on a 
DASD device. This technique applies 
specifically to records organized in a 
random order, but it can also be used to 
process records sequentially. The macro 
language offered by this data management 
method permits the user to load, read; 
Write, update, add, or replace records ona 
DASD file. 


The Direct Access Method is an I0CS 
processing method processing method 
specifically designed to utilize the 
Capabilities of direct access storage 
devices. This method provides the 
following facilities: 


e Processing of records organized in a 
random order. 


* Processing, in physical sequence, of a 
file of records stored by record key. 


e Utilizing track capacities. 
e Two referencing methods: 


1% Record ID (physical track and record 
address), 


2. Record KEY (control field of the 
logical record). 


e Multiple track searching beyond the 
specified track for resolving the key 
argument. 


° Providing a means of supplying the user 
with the Record Identifier (CID) of 
either the current record or the next 
record after a READ or a WRITE operation 
has been executed. 


The Direct Access Method is subject to the 
following restrictions: 


° Only unblocked records are processed. 


e No work area and only one I/O area can 
be specified for the fi 


DIRECT ACCESS FILES 


* The user must supply either a track 
reference or a record identifier for 
nee record read or written by logical 


DASD files processed by the Direct Access 
Method must be defined for logical [OCS by 
a DTFDA macro. If a DASD file is processed 
by physical IOCS in a manner similar to the 
Direct Access Method, the file must be 
defined by a DTFPH macro. 


DEVICE INDEPENDENT SUPPORT 


Device independent support is provided in 
LIOCS by dynamically extending the user 
DTFDA into the virtual area within the user 
partition (see Figure 2), and by linking 
the user DTFDA to the device independent 
version of the logic module jin the SVA 
(shared virtual area). The user must 
provide sufficient dynamically allocatable 
Space in his partition for the device 
independent extension to the DTFDA table. 


The device independent versions of the 
logic module in the are reenterable and 
therefore sharable between partitions. If 
the linkage to the original module is 
already coded read-only, the user supplied 
Save area 1s not used. 


The device independent versions of the 
logic modules in the SVA are supersets of 
the functions needed to process the DTFDA 
being opened. Supersetting of RPS and 
non-RPS logic modules is not supported. 


The CCB CCW address and the module 
linkage field in each DTFDA are modified to 
point to the DTFDA extension and the device 
independent version of the logic module in 
the SVA. Each DTFDA has two indicators set 
on by OPEN: one indicates that the DTF has 
been extended into the virtual area, the 
other indicates that the device supports 
RPS Cif that is the case). 


The DTFDA extension contains a CCW build 
area necessary to construct channel 
programs. In addition, it contains a Save 
area to allow reentrant imperative macro 
calls to the device independent version of 
the logic modules and to preserve DTFDA 
information to reestablish the original 
DTFDA at CLOSE time. The original DTFDA is 
used for all other information, except the 
channel progrzam 
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Whenever a file of DASD records is 

processed by the Direct Access Metho 
logical file must be defined by a DT 
macro. This macro generates a parti 
table to describe the characteristic 
the file for logical IOCS as shown i 
Figure l. The DTF table is complete 
the channel program builder subrouti 


A logic module. This subroutine 
s the channel program CCWs to process 
ile and inserts them into the DTFDA 
able extension (see VSE/Advanced 
ctions Diagnosis Reference: LIOCS Volume 
: The number and specific nature of the 
varies imperative macros used with the 
é See Figures 14 and 15 for a summary 
he CCW chains needed to accomplish the 
tion of a particular imperative macro. 


HES TM = 
_ 
t+ roo 


oe] 
Oreo ir 


e IBM VSE/Advanced Functions LIOCS Volume 3 DAM and ISAM 


DTF eet Module 


Label lps 


&Filename 
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IJISWI 


IJIFNM 


IJIDVTP 


IJIUNT 


IJIRPS 


IJIULB 


IJIUXT 


IJIRELPT 


IJIERC 
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Figure l. 


ECT Label[Bytes 


[ 
| 
| 
| 
| 0 1 = Trailer labels | 
1 Used by FREE macro | 
| 2 1 = COBOL Open/Ignore option | 
3 1 = Track hold option specified 

G 1 = DTF relocated by OPENR | 
5 Not used | 
6 1 = SPNUNB | 
7 Used by CNTRL macro | 
17-19 | Address of logic module. | 
ees | 
20 | DTF type for OPEN/CLOSE (X'22'" = direct access | 
(14) | files). | 
21 0 1 = Output; O = Input. | 
(15) | 1 1 = Verify option specified. [ 
2 1 = Search multiple track (SRCHM) specified. | 

| 3 1 = WRITE AFTER or WRITE RZERO macro used. 
& 1 = IDLOC specified. | 
| 5 1 = Undefined; 0 = FIXUNB;, VARUNB, or SPNUNB [ 
6 [1 = RELTYPE = DEC | 
7 \. = End of file | 
22-28 [ Filename (DTF Name) | 
ow | | 
29 iDevice Type. | 
(1D) X'OoO' = 2311 X'O8* = 3340 general 
X'O1l"' = 2314, 2319 X'O09* = 3340 35MB | 
X'04" = 3330-1, 3330-2 X'OAt = 3340 7OMB | 
X'O5' = 3330-11 X'OB® = 3375 | 
X'O7' = 3350 X'ac' = 3380 | 
30-31 Starting logical unit address of the first volume| 
C(1lE-1F) containing the data file. This value is supplied] 
| by the OPEN from EXTENT cards (can be initially | 
| zero). | 
32 0 rags used | 
(20) 1 RPS device and RPS=YES in FOPT macro | 
2-6 Not used | 
7 i = Extended DTF for RPS | 
| 33-35 | foaeeas of user's label routine. | 
een cre | 
36-39 | Address of user's routine for processing EXTENT | 
eras information. | 
40 | Pointer to relative address area: [ 
(28) | a oa &Filename | 
| | 
Freee } {Address of a 2~byte field in which IOQCS can store| 
(29-2B)[ jthe error condition or status codes. | 
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Command Control Block (CCB). 


DTFDA Table (Part 1 of 6) 
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Figure ll, 
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DTF Assembly 
Label 


Function 


used. 

Wrong-length record. 
Non-data transfer error. 
used. 

No room found. 

used. 

Record out of extent area. 


e) 


On 


Oo Oo 
(ier ice ot ct 


Data check in count area. 

Track overrun. 

End of cylinder. 

Data check when reading key or data. 
No record found. 

End of file. 

End of volume. 

used. 


el track address, XBCCHH, where X is the | 
ume sequence number of the device on which the| 
el track is located. 


ee I NE EY 


NAGIBWNRO SI BWR 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| IJILBTK 
| 


meer ZR RP RP RP RP PE Ze Smee Zz 


] 
wre ctil tt tt tt i it 


wo aw 


This is the end of the common DTFDA table. 


The following section is included if UNDEF, AFTER, or RZERO iS specified. 


DTF Assembly|Module | 
Label |DSECT Label|Bytes 


Bits | Function 


IJILST Basic CCWs to build channel program 


(see Figure 9). 


&Filename.L 


Basic CCWs for undefined length or formatting 
macros (see Figure 9), 


| 
| 
| | | 
| | | 
| | | 
| 
| Instruction to give record length to user if 
| | record length is undefined. (NOPR O if no | 
| | | RECSIZE specified.) | 
| | TITERU 186-187 Instruction to get record length from user if { 
| | (BA-BB) record length is undefined. CNOPR O if no | 
| | peeeewee specified.) | 
|\&Filename.F |IJIFLD 188-192 iWork area Cused for RO address - CCHHO). | 
| | (BC-COQ) | | 
|&Filename.K |IJICNT east igi |\Work area Cused for RO data field). 
| | (C1-C8) | | 
|&Filename.C lrurers ee Work area Cinecluded only for spanned or variable | 
| | }(C9-D0) | records for record count field). | 


Figure l. DTFDA Table (Part 3 of 6) 
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The channel program builder strings are generated following the DIFDA table, and 
preceding the channel program building area. (See Figures 9 and 10 for the channel 
program builder string to be used for each macro.) 


DTF peocue hy pean 
Label |DSECT 
jLabel 


ea Function 


Channel program builder string for READ ID macro. 
If READ ID is not specified, the string is not 
generated. 


&Filename.Q Variable 


| 
| | 
| | 
| | 

| 
Pesce, : | 
|\&Filename.1 | annanre Channel program builder string for READ KEY | 
| | macro. If READ KEY is not specified, the string | 
| | is not generated. | 
[&Filename.2 | eee Wee |Channel program builder string for WRITE ID { 
| | |macro. If WRITE ID is not specified, the string | 
| | | | lis not generated. | 
[&Filename.3 | Variable Channel program builder string for WRITE KEY | 
| macro. If WRITE KEY is not specified, the string| 
| | lis not generated. | 
\&Filename.% |Variable Channel program builder string for WRITE RZERO | 
| | | macro. If WRITE RZERO or WRITE AFTER is not | 
| | | pereehiieds the string is not generated. | 
Leeeicinets | Gacdanite| Channel program builder strings for WRITE AFTER | 
| | macro. If WRITE RZERO or WRITE AFTER is not | 
| | specified, the string is not generated. 
SE oe ee a a ye ee ee ee ee a Oe eee 


The following section contains the channel program build areas and varies in size. 


DTF pesmi dule | | 
Label IDSECT Label|/Bytes Bits Function 
&Filename.B 0-7 Seek CCW that is generated at program assembly 


time and used by all channel programs. 
Area to build: 
1 Eight CCWs if A 


| 
Variable | 


TER is not specified. 


mo mn 


| | 
| | 
| | 
| | | 
| | | 
| | 
! 
| | 2. Eight CCWs if spanned or variable length | 
| records and AFTER=YES is specified. | 
| | 3. Seven CCWs if undefined or fixed records and| 
| | AFTER=YES is specified. | 
| | ver iene Area to build | 
| | | 1. Eight CCWs if AFTER is not specified and | 
| | | VERIFY=YES is specified. | 
| 2% Eight CCWs if spanned or variable length | 
| records and AFTER=YES and VERIFY=YES are | 
| specified. | 
| | 3: Five CCWs if undefined or fixed records and | 
| | | | AFTER=YES and VERIFY=YES are specified. { 


i a 


Figure l. DTFDA Table (Part 4 of 6) 
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The following section 18s added for spanned records only. 


DTF art ae 


ul | 
Label CT Label|Bytes Function 


| | 
| 
| | 8 ee Count save area. | 
| | | 8 ayes |SEEKADR save area. | 
| | | 1 byte | 0 Fi = Relative addressing. | 
| | | 1 {1 = IJIGET switch on. | 
| | | 2 |1 = Ignore hold switch on. | 
| | | | 3 |Reserved for use by IJGXDAV/S | 
| | { 4 |} = New volume SEEKADR. | 
| | | fou Not used. | 
| | | 1 byte Reserved. | 
| | | 2 bytes | Record size. | 
| | ae bytes | Work area. | 
| | | 8 bytes| Control word save area. | 


The voto section is added to the DTFDA table if DSKXTNT Crelative addressing) is 
specified. 


DTF Assembly 
Label 


I | 
eee i Function 


&Filename.P for padding. 


| | 
| ; 
| | | | 
fae elt | 5 ey leeeaune record area (bucket used by module). | 
l[&Filename.S | 18 bytes| |ISEEKADR in forms M,B1,B2,€1,C2,H1,H2,R f 
| | 14 bytes | IDC AC&SEEKADR) | 
| | a bytes | IDC AC&IDLOC) | 
| | 8 BYES ore area for RELTYPE=DEC. | 
orn emnnnas | e peer ane area for CCHH portion of actual DASD | 
address 
| | | | | 
| | 4 bytes] {Alteration factor for Cl in SEEKADR (see bytes | 
| | | eae | 
| | 251.1% X'oqoo00000l1' } 
| | 2314, 2319: X'oQoog0o0og001' | 
| | 3330: x'00001300' 
| | 3340: x'oaoooocasg' | 
| | | pee X'OOOQO1EDO' 
| | | | 33753 Xx'oocac0cscno' | 
| | | Renae X'OOOCOFOO' | 
| | ‘a yiwet J}Alteration factor for C2 in SEEKADR (see bytes | 
| | | | ee nr | 
| | | {23l1: xKX'oo0oc0cDA' | 
| | | Ea 2319: X¥'00000014' | 
| | | 3330: Xx'oococooli3' | 
| | | [3340: xX'oOO000G0C' | 
| 3350: X'OOOOCO0CIiE' | 
| | (3375: X'ocoooooc' | 
| | 13380: X'OQOQOOO0OOO0F' | 
a i ee 


Figure l. DTFDA Table (Part 5 of 6) 
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DTF Assembly|Module | [ | 


e tra 
limit of thi entry. 


end-of-table indicator cont 


te ntaining 
follows the last entry in the DSKXTNT 


| Label {[DSECT Label|Bytes IBits]| Function | 
| G4 bytes Alteration factor for H1 in SEEKADR (Csee bytes | 
| | { { 1112-119): | 
| | { | | | 
| | | | | | 
| | | |2311: Xx'oo0000001' | 
| | | | {2314, 2319: x'd0000001' | 
| | | | 13330: x'ooo00001' | 
| | | 13340: x'oagoooo0o0l1' | 
| | | | 13350: x'oooo0001' | 
| | | | (3375: x'oo000000i1' | 
| | | | aeons X'oooo00001' | 
| | |Variable|] IDSKXTNT table composed of a variable number of I 
| | {to end | |\8-byte entries containing extent information | 
| | lof DTF [ lin the following format: | 
| | ltable | | ; | 
| | | [Bytes 0-2 TTT2 - cumulative number of tracks in | 
| | | | | the DSKXTNT table entries up tol 
| | | | and including the current | 
| | | | entry. | 
| | | | 3 M -—- volume sequence number. 
{ | | | G B - 0 for disk devices. | 
| PY | 
| | : Bytes 5-7 TTT1 - relativ ek number of lower | 
| | { | | 
| | | { | 
| | { | | 
| | | | | 
| | | | | 


by 
v 
e 


* 


Numbers in parentheses are displacements in hexadecimal notation. 


Figure l. DTFDA Table (Part 6 of 6) 
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M 1 
abe | D T Label|Bytes IBits | Function 
I B 


| | 
| | 
| LD 0 CCW build area. | 
| =e | 
| |IJIXSPTR | 176 | [Address of original channel program. | 
sae 
| | IJIXSVMP | 180 | {}Address of original logic module. | 
| [ee 
| {IJISAVA | 184 | |\72-byte register save area. | 
| | | (B8) | | | 
| | | l | | 
| | | 266 | [Not used. 
eet | 
| |IJISECVO | 267 | Sector work byte. | 
| | | (10B) | | | 
| |IJISECV1 268 | |\Sector work byte. | 
| | pe | 
| |IJISECV2 | 269 | {Sector work byte. | 
ae | 
|IJIXSEC | 270 | IRPS CCW. { 
pot pS 
| IJIXSSO | 278 | IRPS CCH. | 
ot | 
| | IJIXSSX | 286 | [RPS CCW. | 
| | , C1lIE) | | | 
| {| IJIXSSNF | 294 | [RPS CCW. | 
| | {| ©€126) | | | 
| {IJIXSTRG | 302 | {PESC byte string area. | 
| ere 
| J IJIXSPT 382 | {Displacement to strings. | 
a a 
| |IJIXMCYL | 390 | |Maximum cylinders per volume. | 
ae 
| |IJIXTFAC l 392 | {Tolerance factor. | 
| | | (188) | [ | 
| |IJIFLGI | 394 | co byte. | 
| | exe ae | 
| |} IJIXUSTEF | 395 | |Indicator needed to use tolerance factor. | 
| | ear ee | 
| |IJIFLG2 | 396 | |]|Flag byte | 
| | €18C) | | 


a a a a a ee ee ee ee ee ee eee 
Numbers tn parentheses are displacements in hexadecimal notation. 


Figure e, Device Independent DTF Extension for DTFDA 
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DTFPH MACRO 


Figure 3 illustrates the DTF table 

generated by the DTFPH macro when the 

parameters DEVICE=xxxx and MOUNTED=AL 
e 


L are 
specified in the macro operand. Th table 
contains the information to define a DASD 
file for processing by physical IOCS» ina 
manner similar to the Direct Access Method. 
! Bytes | Bits |Function 
| 0-15 CCB 
| (O-F) | | 
| 16 €10) | io 08* indicates DTF relocated by OPENR. 
{ 17-19 | 13x'oo' 
| (11-13) | | 
| 20 (14) | a type (X'23'). 

22 -€25) 4 lOption codes. 

| | oo i : poco O = Input. 
- a) se 

| | | 

| 22-28 [ [Filename 

| (16-1C) | | 

|} 29 €1D) | {Device type code: 

| | Ix'oo* = 2311 

| | IX'O1l* = 2314, 2319 

| | coos a saso-ie 

| | Ix'oO7"' = 3350 

| | 1X'O08"' = 3340 general 

| [x'o?* = 3340 35MB 

| | iX'oB' 2 3375, 088 

! | | ; 

| 30-31 | |Logic 

| C1E-1F) | jee e file 

| 32 (20) | 0 |INot Used. 

| | 1 }1 = Device supports RPS. 

| | 2 }1 = Version 3 DTF. 

| | 3-7 aera for future use. 

| 33-35 | l|Address of user label routine. 

| (21-23) | | 

| 36-39 | | 

| €24-27) | linformation. 


al unit address of first volume containing 
i 


Address of user routine to process EXTENT 


If the device being opened has RPS 
capability and the SYSGEN option RPS=YES 
has been specified, OPEN will set on bit 1 
in byte 32 of the DTF. If the user wishes 
to make use of the RPS feature of a device, 
he must provide the appropriate Read Sector 
and Set Sector CCWs in his channel programs 
as is done in the Direct Access Method. 

(See the appropriate hardware manual for 
your device, for format of Sector CCNWs and 
a write-up on Rotational Position Sensing. ) 


a ES A ES a A SE HY Sa 


Numbers in parentheses are displacements in hexadecimal notation. 


DTFPH Table for DAM Files 
REFERENCE METHODS AND ADDRESSING SYSTEMS 


Figure 3. 


Each record read or written must be 
identified by providing the logical IQ0QCS 
routines of the Direct Access Method with 
two references: 


ae Track reference - location of the track 
Within the pack. 


a. Record number (ID), or Record Key 
Ccontrol information) - position of the 
record on the track. 


The user can specify the track reference or 
record ID as either an actual physical DASD 
address or as an address relative to the 
start of the file. If relative addressing 
is used, the address provided by the user 
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has been converted to either a 4&-byte 
hexadecimal or a 10-byte decimal address. 
Actual physical addresses are supplied as 
8-byte DASD addresses. Further details of 
the addressing systems are presented in the 
following discussion of reference methods. 


TRACK REFERENCE 


Before issuing a read or write instruction, 
the user must supply the proper track 
identification in the track reference field 
in main storage. (This field is identified 
by the SEEKADR= parameter specified in the 
DTFDA macro.) The track identification can 
be expressed in one of three formats 
depending on the addressing system used. 


diss Actual physical addressing - the track 
identification 1S contained in the 


first seven bytes of the 8-byte track 
reference field (MBBCCHHR). 


2. Relative addressing (RELTYPE=HEX) - the 


track identification 1s contained in 
the first three bytes of the G-byte 
track reference field (CTTTR). 


$2 Relative addressin CRELTYPE=DEC) - the 
track identification 1s contained in 
the first eight zoned decimal bytes of 
the 10-byte track reference field 
(TTTTTTTTRR). 


The track reference selects the channel and 
oe ae which the referenced track is 
oun 


RECORD ID 


Reference to a particular record can be 
made by supplying a specific number in the 
track reference field. This number (CID) 
refers to the consecutive position of the 
record on the given track; that is, the 
first data record on a track is number 1, 
the second is number 2, and so on. 


The form in which the record ID is 
supplied in the track reference field also 
depends on the addressing system used. 


the record 


1 Actual physical addressing 
ID in the 


1s the last byte (R-byt 
8-byte track reference fie 
(MBBCCHHR). 


e ) 
ld 


2% Relative addressing (CRELTYPE=HEX) - the 
record is the last byte (R-byte) in 
eee track reference field 


3. Relative addressing LTYPE=DEC) - the 
record ID 1s Ve — zoned decimal 


bytes (RR) in 
reference field 


When a READ or WRITE macro that sea 


rches 
for record ID is executed, logical I0OCS 


refers to the track reference field to 
determine which record is requested by the 
program. The number in this field is 
compared with the corresponding field in 
the count areas of the DASD records. 


When a READ ID macro is executed, IOCS 
searches the specified track for the 
Particular record. If the record is found, 
the key area (if present and defined by the 
KEYLEN= parameter in the DTFDA macro) and 
the data area of the record are transferred 
into the main storage I/0 area. If the 
corresponding record ID (R portion of the 


count area on the track) is not found, a 
no-record-found indicator is placed in the 
user's error/status indicator. The WRITE 
ID operation is the same as the READ ID 
except a record is written instead of read. 


RECORD KEY 


If the DASD records include key areas, the 
records can be identified by the control 
information contained in the key. Whenever 
this method of referencing 18S used, the 
problem program must supply the key of the 
desired record to logical [OCS before a 
READ or WRITE macro is issued. 
or WRITE macro is executed, 
the track identified by the track reference 
field for the desired key. The search 15 
confined to one track unless multiple track 
search is specified by the user, (Refer to 
the section "Multiple Track Search". ) 


If the desired key is not found on the 
rack, IOQCS posts a no record found 
indication in the user's error/status 
indicator. When the desired key is found; 
Ocs reads the data area of the DASD record 
into Hos storage if a READ KEY macro was 
Ssued. 


When a WRITE KEY macro is executed and 
the desired key is found, JOCS transfers 
the data in main storage to the data area 
of the DASD record. This replaces the 
information previously recorded in the data 
area. 


CONVERSION OF RELATIVE ADDRESSES 


When the record address supplied by the 
user in the track reference field (SEEKADR) 
is in relative address form, it must be 
converted to an actual DASD address (CCHHR) 
before it can be handled by the routines of 
the DA logic modules. The Seek Overlap 
Subroutine in the logic module performs the 
conversion. 


If the user wants to express tne 
relative address as a 10-byte zoned decimal 
number CRELTYPE=DEC), the address is packed 
and converted to binary so that it takes 
the hexadecimal TTTR form before conversion 
to an actual address. 
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Conversion to an actual DASD address 
tarts by comparing the TTT value given in 
he user-supplied relative address with the 
TT2 value of each entry in the DSKXTNT 
able. (Refer to Figure 16 and toa 
Relative Addressing" under “Initialization 
and Termination" in this section of the 
manual.) The proper DSKXTNT entry is 
reached when the TTT2 value of the entry 
exceeds the TTT value in the address. The 
M and B2 values from the table entry are 
inserted into the seek address, MBBCCHHR 
(Bl is always QO). The reconversion factor 
is calculated by subtracting the TTT1l value 
of the current extent entry from the TTT2 
value of the previous entry. The 
reconversion factor is saved for 
reconversion of an actual address to a 
relative address if IDLOC is specified. 


The user's TTT value is then divided, in 
turn, by the three device-dependent 
alteration factors; Cl, C2, and Hl (refer 
to Figure 17). The quotient after each 
divide operation is placed in the 
respective position in the seek address. 
For example; the quotient (Cafter the TTT 
value is divided by the Cl alteration 
factor), is inserted in the first C byte of 
the seek address, MBBCCHHR. The remainder 
after each divide operation becomes the 
dividend for the next divide operation. 

The remainder after the final divide 
operation is the H2@ value in the seek 
address, MBBCCHHR. The R byte of the 
actual seek address is identical to the R 
byte Cor equivalent to the RR bytes if 
decimal relative addressing is used) in the 
TTTR relative address. 


If a record ID is returned to the 
in relative address form after a REA 
WRITE macro instruction is executed 
specified), reconversion is accompli 
reversing the conversion process. T 
the corresponding CCHH portions of t 
actual address are multiplied by the 
respective alteration factors and the 
reconversion factor is added to the result. 
Again, the R byte remains unmodified 
throughout the reconversion process. If 
the decimal form of relative addressing is 
specified, the TTTR hexadecimal form is 
further converted to the 10-byte zoned 
decimal form TTTTTTTTRR. 


D 
C 
S 
h 
h 


MULTIPLE TRACK SEARCH 


The Direct Access READ KEY and WRITE KEY 
macro routines for processing DASD files 
normally search one track for the desired 
logical record. The user can specify a 
search of multiple tracks by including the 
DTFDA entry SRCHM (SeaRCH Multiple tracks) 
in the DTF. When SRCHM is specified, IOCS 
begins the search for a specified record 
key on the track specified in the track 
reference fielc. The search continues 
until one of two conditions occur: 
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1s An equal compare occurs between the key 
argument Crecord key) in main storage 
and the key of the required record. 

es The end of the specified cylinder is 
reached. 


The search for multiple tracks continues 
through the cylinder, even though part of 
the cylinder may be assigned to a different 
logical file. This occurs with or without 
relative addressing. IOCS provides the 
user With an end of cylinder indicator when 
the search reaches the end of a cylinder. 
This indicator is placed into the 
error/status byte by IQCS. 


IDLOC 

The parameter IDLOC= is provided (Cin both 
the DTFDA and IJGXDAF/U or IJGXDAVZ 

macros) if the user wants to identify 
records after each READ or WRITE operation 
is complete. If specified, IDLOC 
identifies a main storage location where 
IOCS supplies the address (Ceither actual or 
relative) of a DASD record. If spanned 


records are being processed, the ID 
returned will be that of the first segment 
of the record. The address returned in 
location IDLOC after a particular macro 
depends ona variety of conditions. See 
Figure 4 for a summary of these conditions 
and the addresses returned. When the 
problem program references a record by ID 
or KEY and does not specify the SRCHM 
(search multiple tracks) option, IOCS 
returns the ID of the next record under 
normal conditions. If the user is 
processing records sequentially on the 
basis of the next ID, he can check the ID 
supplied by IOCS against his file limits to 
determine when he has reached the end of 
his logical file. 


If the next record ID is returned to 
IDLOC, LIOCS searches for the ID of the 
next record on the specified cylinder. If 
an end of cylinder occurs before the next 
record is found, logical IOCS: 


Bi Posts the end-of-cylinder bit in the 
error/status indicator, and 


2. Updates the address to head OQ, record 1 
of the next cylinder, and posts this 
updated address in IDLOC. 


t is possible that there will be no record 
t this new address. In this case, logical 
OCS posts a no- record— found in the 
rror/status indicator. Two ways to avoid 
his possibility: 


Initialize the volume by writing a 
dummy record at the beginning of each 
cylinder. 


os Add 1 to the record address and read or 
write again, and continue this process 
until logical IOCS finds the desired 
record. 


3 DAM and ISAM 
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¥If an end-of-cylinder condition coincides wi 
1 volume, the ID supplied 


condition occurs on the last volume, the ID 


number of tracks for the file. A dummy record 


is that of the first record on the next volume. If this 


th either a physical or a logical end of 


Supplied in IDLOC is equal to the maximum 
is supplied when a physical end of 
1S used. 


each containing X'FF* 
each containing a 


| SRCHM = YES | SRCHM # YES | | Seek 

| Read/Write | | | address | 
| Function iNormal INo |xEnd Normal |No |xEnd EOF | not in | 
| [I/O jrecordlof I/0 |lrecordlof lrecord| extent | 
| {complete|found |cylinder|complete|found |cylinder|lread | area | 
|READ Filename,KEY Same Blank Next Next Dummy |Next Dummy Dummy | 
| record record |lrecord |lrecord|record lrecord]| record | 
IWRITE Filename,KEY Same Blank |Next Next Dummy [Next Dummy Dummy | 
| [record | lrecord jrecord lrecord|record lrecord| record | 
[READ Filename,ID Next Dummy |Next Next Dummy [|Next Dummy Dummy | 
| lrecord lrecord|record |record |record|record lrecord| record | 
[WRITE Filename,ID Next Dummy |Next Next Dummy |Next Dummy Dummy | 
| |record lrecord|record lrecord |lrecord|record lrecord| record ! 
IWRITE Filename,AFTER|None Dummy |Dummy None Dummy |Dummy Dummy Dummy | 
| | lrecord|lrecord |record|record l|record| record | 
IWRITE Filename,RZERG|None Dummy |Dummy None Dummy |Dummy Dummy Dummy { 
| [ record|record | lrecord|record |{record| record | 
| | 
| | 
| | 
| volume is reached if actual DASD addressing | 
pens record: | 
|Actual addressing ---------- 5 bytes (CCHHR), | 
[Relative addressing (HEX) -- @ bytes CTTTR)> | 
[Relative addressing (DEC) -- 10 bytes, each | 
Figure 4. Record ID Returned to JDLOC 


CONTROL FIELD —- SPANNED RECORDS 


Figure 5 illustrates the format of the 
&8-byte control field associated with each 
Spanned record. The first four bytes are 
called the block descriptor word an 

contain information supplied by LIOCS when 
the record 1s written. The second four 
bytes are called the segment descriptor 
word and contain segment type information, 
the user supplied record length, and the 
segment control fla 


Normal Segment: The term normal segment 
refers to any segment of the kind described 
by the segment control flag. 


Null Segment: The term null segment re 
to a special 8-byte segment (control f 
only) that may be written by a WRITE A 
macro when the file is being created. 
null segment is written as the last rec 
on a volume and indicates that tha next 
logical record is written on a new volume. 
Spanned records do not span volumes; that 
is, the first portion of a logical record 


fers 
ield 
FTER 
A 

ord 


r 


containing decimal 


cannot exist on one volume and the 
remainder on another. 


ERROR/STATUS INDICATOR 


When processing records in a DASD 
environment, certain exceptional conditions 
must be handled within the program. 

Because the method used for handling these 
exceptional conditions depends on the 
application and operating environment, the 
logical IOCS routines of the Direct Access 
Method provide the user with exception 
indicators. 


The user must specify a symbolic name 
for the address of a 2-byte field where 
IOCS places the exceptional condition 


codes. The symbolic name 1S written by the 
user in the DTFDA entry ERRBYTE. When 
needed, IOCS sets one or more of the bits 


in this error/status indicator for the 
conditions illustrated in Figure 6. 
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Block Descriptor Word Segment Descriptor Word 


Segment Type Segment Control 
(Bit O) Flag (bits 6 and 7) 


Block Descriptor Word 


LL Record length including the 8- byte control 
field (Pf +4). 


RR Used by the system. 
Segment Descriptor Word 


= Record length including the 4-byte segment 
descriptor (data length + 4). 


Segment Type: 


0 = Normal segment 
1 = Null segment 


f = Contains binary zeros except bits 6 and 7. 
Segment Control Flag: 
00 = This segment is not followed or preceded by 
another segment; that is, a single contiguous 


segment contains the entire logical record. 


This segment is the first segment of a multi- 
segment logical record. 


This segment is the last segment of a multi- 
segment logical record. 


This segment is neither the first nor the last 
segment of a multisegment logical record. 


r = Contains binary zeros. 


Figure 5. Spanned Record Control Field 
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SS SS EE ES 


0 
1 


l}Error/Status Indicator 


[Wrong-length record 


SE SS OT SS A A 


eet NE a i SS ES YS LE PA A A SO SS ES I SN ST 


XUNB records: This bit is set on whenever the 
ta length or key length of a record differs 
om the original record. If an updated record 


FI 
da 
fr 


DEF records: This bit is set on under the 
llowing conditions: 


s shorter than the original record, the updated 
ecord is padded with binary zeros to the length 
f the original record. If the updated record 15 
onger than the original record, the original 
ecord positions are filled and the rest of the 


i 
a 
re) 
l 
- 
updated record is truncated and lost. 
U 

Lf 


he 
Oo |> 
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Byte [Bit 1 | Explanation 


When a READ is issued and the record is 
greater than the maximum data size (BLKSIZE 
minus KEYLEN; or BLKSIZE minus the value of 
KEYLEN plus eight, if AFTER 18S uSed)s; a 
wrong-length error condition _ is given and the 
value returned in the RECSIZE register is that 
of the actual record length. 


When a WRITE ID or KEY is issued and the 
record to be written is greater than the 
maximum data size, a wrong-length error 
condition is given and the record written 15s 
equal to that of the maximum data length. I f 
the DASD record is larger than the maximum 
data size, the remainder of the record is 
Padded with binary zeros. The value in the 
RECSIZE register is set equal to that of the 
maximum data length. 


When a WRITE AFTER is issued and the record to 
be written 18S greater than the maximum data 
Size,» a wrong-length error condition is given 
and the record written is truncated to the 
maximum data length. The value in the RECSIZE 
register is set equal to that of the maximum 
data length. 


UNB records: This bit is set on under the 
lowing conditions: 

When a READ iS issued and the LL (Cdata length 
+ 8) count of the record read is greater than 
the maximum value specified by the BLKSIZE= 


Parameter in the DTFDA macro. 


When a WRITE ID or KEY macro is issued and the 
LL count 18 greater than the value specified 
by the BLKSIZE parameter in the DTFDA macro. 
The record is written with the low-order bytes 
truncated. 


When a WRITE AFTER macro is issued and the LL 
count is greater than the value specified by 
the BLKSIZE parameter in the DTFDA macro. The 
record is written with the low-order bytes 
truncated. 


a re rs ee ee ee ee ee ee ee ee cr i re ee 


SS ee a a a | 


Figure 6. 


Error/Status Indicator 


(Part 1 of 4) 


Direct Access Files 15 


Licensed Program - Property of IBM 


Byte|Bit |Error/Status Indicator | Explanation 


SPNUNB records: This bit is set on under the 
following conditions: 


° When a READ macro is issued, the wrong-length 
record error indicator is set if the LL (data 
length + 8) count is larger than the value 
Specified by the BLKSIZE parameter in the 
DTFDA macro. The number of data bytes read 
into the I/O area is equal to the value of 
BLKSIZE minus 8 bytes for the control words. 


© When a WRITE ID or KEY macro is issu » the 
wrong-length record indicator is set Fs 


1. The LL count for the record to be writ 
exceeds the value specified by the BLK 
parameter in the DTFDA macro. 


2. The data length of the record to be written 
Si cecae the data length of the original 
record. 


ed 
i 


ten 
SIZE 


In either of the above cases the record is 
Written with the low-order bytes truncated. 


The wrong-length record indicator is also set 
when the first segment encountered for the 
original record is not type OO or Ol. In this 
case the no-record-found (bit 4 in byte 1) 
indicator is also set on and no portion of the 
new record is written. 


The wrong-length record indicator is set for 
multisegment records if any segment of the 
original record encountered after the first 
segment is not type 11 or 10. In this case 
tne remainder of the new record is not 
written. 


e When a formatting WRITE AFTER macro is issue 
and the LL count for the record being writte 
exceeds the value specified by the BLKSIZE 
parameter in the DTFDA macro. The record is 
written with the low-order bytes truncated. 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


cord in error was neither read nor written. 
EXT is specified and this bit is off (0), 
er took place and the problem programmer 
check for other errors in the ERRBYTE 


Non-data transfer error 


Not used. 
N 1 


o-room-found indication is applicable only 
the formatting WRITE AFTER macro is used for 
e. If the bit i set on, IOGCS has 

mined that there is not enough room left to 
the record; cansequently, the record is not 
n. 


o-room-found 
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Not used. 
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Figure 6. Error/Status Indicator (Part 2 of 4) 
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Byte!|Bit |Error/Status Indicator | Explanation 
0 6 ee used. | 
0 7 |Record out of extent area |The relative address given is outside the extent 


larea of the file. No I/Q activity has been 
lstarted and no other error indicators are set. 


Data check in count area This iS an unrecoverable error. 


he number of bytes on the track exceeds the 
eoretical capacity. CNill not occur when 

yess Function macro instructions are 
e e 


rack overrun 


End-of-cylinder e end-of-cylinder indicator bit is set _on when 

CHM is specified for a READ or WRITE KEY and 

e end-of-cylinder is reached before the record 
found (bit @ of byte 1 is also turned an). If 
LOC is also specified, certain conditions also 

rn this bit on, possibly in conjunction with 

e no-record-found indicator (bit 4 in byte 1). 

r further information see IDLOC. 


A Netto tnd ¢<et 
zs owvecogwnrTrmaTsT nwt 


ata check when reading is iS an unrecoverable error. 


D 
key or data 
N 


o-record-found 


Cc 
5 


1d indication is given when a 
is issued and the record is not 


wn OA 


CHM=YES is specified, the end-of-cylinder 
dicator (bit 2 in byte 1) is also set on. 


For SPNUNB records: the no-record-found 
indicator is also set on ifs when the identified 
record is found, the control flag in the first 
segment encountered is not OO or Ql. In this 
c 
Cc 
i 


ase, the no-record-found indicator is set on in 
onjyunction with the wrong-length-record 

dicator (bit 1 of byte 

End-of-file able only 


e end-of-file indication i lic 
data length Of 


n 
h s 
hen the record to be read ha 
ero. The ID returned in IDL 
exadecimal FFFFF. The bit i 
he data Skee ee have been By Oc ee sce: For 
xample, in a file having n data records (record 
+1 is the end-of-file record), the end-of-file 
indicator ts set on when the user reads the ntl 
ecord. This bit is also posted when an end of 
Oolume marker is detected. It is the user's 
esponsibility to determine if this bit means 
rue EOF or end of volume on a SAM file 


S 
0 
S 


i cs a rr mr ee ee ee ee ee et ee 
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Figure 6. Error/Status Indicator (Part 3 of 4) 
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pene lError/Status Indicator | Explanation | 


Not used 


Figure 6. 
CAPACITY RECORD (CRZERO OR RO) 


The Direct Access Method utilizes the first 
record on each track, RO; to monitor the 
amount of available space on the track. 
This record 18 unique in that it does not 
contain a key area even though keys may be 
specified for the data records of the file. 


The Direct Access Method reads the data 
portion of the RQ record into the 
Filename.K location in the DTF table. The 
data portion has the following format: 


° 5-bytes - The identifier (CCCHHR) of the 
last record written on the track. 


° 2-bytes - The number of unused bytes 
remaining on the track. 


° l-byte -~- Flag for the Direct Access 
Method. 


WRITE RZERO MACRO 


is used to 


The WRITE Filename,RZERO om e) 
1 do this, the. 


c 
erase a specified track. fe) 

programmer must supply tne track address in 
the track-reference field identified by the 
SEEKAGR= parameter of the DTFDA macro. The 
LIOCS locates the track, restores the 
number-of-bytes-remaining information in 
the data field of the RO record to the 
maximum capacity of the track, and erases 
the Sener: of the track after the RO 
record. 


( 

| | 
| 6 End-of-volume The end-of-volume indication is given in | 
| | | Iconjunction with the end-of- ~cylinder indicator | 
| | | l\Cbit 2 of byte 1). This bit is set on if the | 
| | | Inext record ID (CCHHR where CC = ntl, HH = O, and| 
| | | |R = that is returned on an end-of-cylinder is | 
| | | [higher than the volume address limit. The volume} 
| | | laddress limit is: cylinder 199, head 9, for a | 
| | | 12311; cylinder 199, head 19, for a 2314 or 2319; | 
| | | lcylinder 403, head 18 for a 3330 model 1 or 2; | 
| | | lcylinder 807, head 18 for 3330 model 113; cylinder| 
| | | 1347 or 695, head 11, for a 3340 with 35MB or 7OMB| 
| | lrespectively; cylinder 554, head 29 for a 3350; | 
| | | land CYL 958, head 11 for a 3375. These limits | 
| ! | (eeu: or the reserved alternate track area. | 
[ [ | [If both end-of-cylinder and end-of-volume | 
| | | lindicators are set on, the ID returned in IDLOC | 
| | | lis FFFFF. 
| | | | 
| | | | | 


Error/Status Indicator (Part @ of 4) 


FORMATTING MACRO 


The formatting WRITE Filename,AFTER macro 
is used to write a record after the last 
current record on a specified track. To 
perform this function, the problem 
programmer must supply, in the location 
specified by the SEEKADR= parameter of the 
DTFDA macro, the address of the track on 


Which the new record is to be written. 
This form of the WRITE macro cannot return 
the ID of the new record in the JDLOC 
field. 

When the formatting WRITE AFTER macro is 
used to write FIXUNB or UNDEF records on a 
file, the first eight bytes of the user's 
I/O area must be reserved for LIO 
The (BLKSIZE) must be 


refore, the blocksize 


& + (KEYLEN» tf specified) + DL 


ID of the new record can be found in 
first five bytes of the I/0 area after 
write operation is complete because 

CS uses the eight bytes that are 

erved for the record count field with 
following format: 


e 5-byte track ID (CCHHR) 

° l-byte key length CKL) 

e 2-byte data length (DL) 

When the formatting WRITE AFTER macro is 
used to write VARUNB or SPNUNB records on a 


file, the first eight bytes of the user's 
I70O area contain the record control 


punonnn 
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information. (See Figure 5 for the format 

of the 8-byte control field.) Therefore, 

the blocksize (BLKSIZE) must be equal to: 
Maximum DL + 8 


The ID of the new record can be found in 
the DTF table at location Filename.C after 
the write operation is complete. This area 
of the F table is generated specifically 
for VARUNB and SPNUNB records and is used 
for the count field of the new record. It 
has the following format: 


e S-byte track ID (CCHHR) 
° l-byte key length (CKL) 
° 2-byte data length (DL) 


For VARUNB and SPNUNB 
-byte control ield. 


Note: 
includes the 


DAM LOGIC MODULES 


VSE/Advanced Functions Release 4 provides 4 
preassembled DAM superset logic modules 
that are loaded into the SVA during IPL. 
DAM file open processing automatically 
links the DTFDA to the proper logic module; 
therefore, use of either the IJGXDAF/U or 
IJGXDAV/S macro, which was required in 
DOS/VSE, is not necessary. However, if 
either macro is submitted Cand properly 
specified), it will cause no compilation 
problems; it will simply be ignored by the 
Assembler. 


DAM LOGIC MODULES 


IBM supplied four pre-compiled logic 
modules to process records under the Direct 
Access Method 


These modules are: 


e IJGXDAF for fixed length unblocked 
records 


° IJGXDAS for spanned unblocked records 
° IJGXDAU for undefined records 


e IJGXDAV for variable-length unblocked 
records 


These modules are executed in the SVA. 
Each individual module contains for its 
respective records format the routines for 
the following Direct Access Macros; 


READ», WRITE, CNTRL» FREE and WAITF. 


The macro-routines have individual entries 
in the logic modules. 


When the user issues a READ or WRITE 
macro instruction for a file, program 


control transfers to one of these logical 
IOCS routine that builds the proper channel 
program to accomplish the command. The 
IOCS routine issues an execute channel 
program that causes the I/O request to 
start. I0CS then returns control to the. 
problem program. WAITF macro instruction 
must be issued by the user before the next 
READ or WRITE for the file. The WAITF 
routines test the status of the channel to 
ensure that the operation is complete. If 
the channel is busy, the routine waits for 
I/O completion. The WAITF routines supply 
indications of exceptional conditions to 
the problem program in the error/status 
indicator. he completion of the I/0 
operation, control returns to the problem 
program. 


o 
1 


IJGXDAF/U: READ/WRITE Macro 


Objective: To read or write a fixed-length 
unblocked or undefined record on a direct 
access file 


Entry: From any Input/Output macro used 
with the Direct Access Metho 


Exit: To the problem program via linkage 
register 14. 


Method: Each of the five Input/Output 
macros has a unique expansion that results 
in a branch to a different entry point in 
the module. The entry point is at one of a 
series of exclusive OR instructions. The 
exclusive OR instructions cause a unique 
bit structure to be set up in a one-byte 
macro switch in the DTFDA table. From this 
macro switch, the module determines which 
macro has been issued. 


After the macro switch has been set,» a 
test is made for undefined records or an 
end-of-file condition. If neither, the 
data length is set to the maximum length. 
If end of file, the data length is set to 
zero. If undefined and a read operation; 
the data length is set to the maximum. For 
a WRITE AFTER, WRITE KEY, or WRITE ID 
instruction, this routine gets the data 
length from the user, and determines 
whether it is greater than the maximum 
length. If so, it is set to maximum and 
the wrong-length-record bit is set on in 


the DTF table. The CCW data areas are then 
updated, and a branch and link is made to 
the IJISOVP subroutine, to calculate the 
physical address and to determine the 


Symbolic unit. 


Next, this routine branches to the 
channel program builder to build the CCW 
chain for the macro that is being processed 
Crefer to Figure 14 or 15). A test is then 
made for a WRITE AFTER or WRITE RZERO macro 
being processed. If neither of these, this 
routine issues the SVC O to perform a read 


or write operation. Control then returns 
to the problem program. 
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If the macro is a formatting macro 
CWRITE AFTER or WRITE RZERO) additional 
processing is necessary. If the macro is 
WRITE AFTER, RO iS read and the capacity of 
the track is checked. If the space 
remaining on the track is not large enough 
for the record, the no-room-found bit is 
set on in the DTF and control returns to 
the problem program. 


If the track capacity is large enough; 
the routine calculates the space remaining 
on the track after the record is written 
and stores it in the RO write area. The 
channel program builder then builds a CCW 
chain to WRITE AFTER, updates the previous 
record ID by 1 in the RO write area, and 
tests for end of file. If end of file, the 
key and data length fields in the count 
field are set to zeroa. If not end of file, 
the key and data lengths of the record are 
inserted in the count field. An SVC 0 is 
then issued to write out the record. If 
track hold has been specified, an SVC 36 is 
issued to free the held track, and control 
returns to the problem program. 


the macro issued is a WRITE RZERO, 

CCWs are modified, and a new RO record is 
written. If track hold has been specified, 
and the macro is READ,ID or READ,KEY, the 
track held is not freed by IJGXDAF/U. This 
must therefore be done in the user program 
With the FREE macro. Control then returns 
to the problem program. 


IJGXDAF/SU/V/S: WAITF Macro 


Objective: To ensure that the transfer of a 
record has been completed, to supply the ID 
of a record to the user, if is 
specified, and to post error conditions in 
the error/status indicator, if necessary. 


Entry: From the WAITF macro. 
Exit: 


Method: After saving the user's registers, 
this routine first issues an SVC 7 WAIT 
macro to ensure that the previous I/0 
operation is complete. The second error 
byte from the CCB is placed in the error/ 
status indicator in the DTF table. 


If IDLOC is specified, IOCS supplies the 


To the problem program. 


user with the ID of a record after each 
READ or WRITE is completed (see Figure 4). 
If IDLOC is specified, a test is made for 
the type of macro issued. If a READ KEY or 
WRITE KEY macro, the routine determines if 
the search multiple track option (CSRCHM) 
has been specified. If so, the ID returned 
to the user is the ID of current record 
transferred. 

If a READ or WRITE KEY macro has been 
issued without a search multiple track 
option, or a READ or WRITE ID macro has 


been issued, the ID returned to the user is 
the ID of the next record location, unless 
an end-of-cylinder condition is 
encountered. In this case, the ID returned 
is that of the first record of the next 
cylinder. If an end-of-volume condition is 
detected while updating the cylinder 
address, the end-of-volume bit is set in 
the error/status indicator in the DTF 
table, and a dummy record is returned in 


After the module determines the contents 
of IDLOC, the error/status bytes are set in 
accordance with the conditions posted to 
the CCB by physical IQCS, and returned to 
the user. Then, if record length is 
undefined and a READ macro has been issued, 
the record length is calculated and 
returned to the user. This routine then 
restores the user's registers, resets the 
macro switch in the DTF table, and returns 
control to the problem program via linkage 
register 14. 


IJGXDAF/U/V/S: CNIRL Macro 


Objective: To perform non-data operations 
on a file For a disk device, a seek 
operation. is executed. 


Entry: From the CNTRL macro. 


Exit: To the problem program. 
Method: This routine saves the user's 


registers, and hen branches and links to 
the IJISOVP subroutine, to calculate the 
Physical address and to determine the 
Symbolic unit. When the non-data transfer 
operation has been completed, the user's 
registers are restored, and control returns 
oe the problem program via linkage register 


IJGXDAF/SU/SVS/S: FREE Macro 


Objective: To release a protected (held) 
track on a direct access storage device. 


Entry: From a FREE macro expansion in the 
problem program. 


Exit: To the problem program. 


Method: After storing the user's registers, 
the FREE routine branches to the 
seek-overlap subroutine. The subroutine 
determines the seek address of the held 
track from the seek CCW in the channel 
program build area. The module (M) number 
from the seek address calculates tne 
symbolic unit address which is then 
inserted into the CCB. An SVC 36 iS issued 
to free the held track. After completing 
the subroutine, the FREE routine restores 
the user's registers and returns control to 
the problem program. 
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IJGXDAV/S: Input/Output Macros another track, the CCW chain is modified 
and the seek address is updated to the next 
track. One of the modifications made to 
Objective: To read or write a the READ ID CCW chain is the substituting 
variable-length unblocked or a spanned of a TIC*+8 CCW for the RDKD CCW when 
unblocked record on a Direct Access file. KEYLEN is specified. This 1s done because 
the record key is associated only with the 
Entry: From any Input/Output macro used first segment of a mulitsegment record. 


with the Direct Access Method. 


Exit: To the problem program via linkage 
register 14. 


Method: Each of the five Input/Output 
macros has a unique expansion that results 
in a branch to a different entry point in 
the module. The entry point is to one of a 
series of exclusive OR instructions, which 
cause a unique bit pattern to be set up in 
a l-byte macro switch in the DTFDA table. 
The module determines which macro has been 
issued by testing this switch 


READ Macro - VARUNB Records: The procedure 
followed for both the READ ID and the READ 
KEY macros is exactly the same. The only 
difference between the two macros is in the 
CCW chain built by the channel program 
builder subroutine, IJISBLD. Refer to 
i Peal 


igure 14 or 15, Cha for READ ID; Chart 
for READ KEY. 


The byte count in the basic read data 

W C€see Figure 11) is set equal to the 
ngth specified by the user in the 

KSIZE= parameter for the DTFDA macro. 

e IJISOVP subroutine is then entered to 
calculate the physical address and to 
determine the symbolic unit. Next, the 
channel program builder subroutine is used 
to build the required channel program. The 
channel program is executed to read the 
record into the I/0 area and control is 
returned to the problem program. 


cc 
le 
BL 
Th 


READ Macro ~ SPNUNB Records: The procedure 
followed for both the READ ID and the READ 
KEY macros is exactly the same The only 
difference between the two macros is in the 
CCW chain built by the channel program 
builder subroutine, IJISBLD. See Figure 14 
or 15, Chart I for READ ID; Chart J for 
READ KEY. 

The byte count itn the basic read data 
CCW (€Csee Figure 11) 1s set equal to the 
length specified by the user in the 
BLKSIZE= parameter for the DTFDA macro. 

The IJISOVP is then entered to calculate 
the physical address and to determine the 


Symbolic unit. Next, the channel program 
builder subroutine is used to build the 
required channel program, which is then 
executed to start the read operation. If 
the segment descriptor for the record read 
indicates that it is a null segment or that 
the segment contains the entire logical 
record (segment type 00), control is 
returned to the problem program. 


the record read is segment type Ol 
(the first segment of a multisegment record 
- at this point, segment types 10 or 
Would be in error), which indicates that 
the rest of the logical record continues on 


The last eight bytes of the last portion 
of the record read into the I/0 area are 
temporarily stored in the DTF table to 
allow the control words (block descriptor 
and segment descriptor) of the next segment 
to be read in along with the data (see 
Figure 7); these bytes are later restored 
after the control word information for the 
next segment is processed. The modified 
channel program is reexecuted to read the 
next segment into the I/O area and its 
length is added to the combined length of 
the previous segments. The combined total 
length is then compared to the BLKSIZE 
specified by the user. Should the combined 
length exceed the BLKSIZE, a 
wWrong-length-record CWLR) indicator is set. 
If the segment just read is type ll 
(neither the first nor the last segment of 
a multisegment record), the procedure 
described in this paragraph iS repeated. 


When the last segment (type 10) is read, 
the combined length of all the record 
segments is posted to the segment 
descriptor word in the I/0 area and control 
is returned to the problem program. 


WRITE Macro —- VARUNB Records: The procedure 
followed for both the RITE ID and the 
WRITE KEY macros is exactly the same The 
only difference between the two macros is 
in the CCW chain built by the channe 
program builder subroutine, IJISBLD. See 
Figure 14 or 15, Chart K for WRITE ID and 
VERIFY, Chart L for WRITE ID and NO VERIFY, 
Chart M for WRITE KEY and VERIFY, and Chart 
N for WRITE KEY and NO VERIFY. 


The logical record length (11) is 
obtained from the user's segment descriptor 
word in the I/O area. The length specified 
for the record plus four bytes for the 
block descriptor word is then tested to see 


if it is greater than the maximum block 
length specified in the BLKSIZE parameter 
of the TFDA macro. If it 1s not greater 
than the BLKSIZE value, the byte count in 
the basic read data CCW CRDD CCW - Figure 
11) is set equal to the specified ll + 4 
Cthat is, LL) value. If, on the other 
hand, the LL value is greater than the 
BLKSIZE value, the record capacity 
register(CIJICPR) and the RDD CCW pete count 
are set equal to the BLKSIZE value and the 
wrong-length-recora (WLR) indicator is set. 
This causes truncation of the record when 


it is written. 


The IJISOVP subroutine is entered to 
calculate the physical address and to 
determine the symbolic unit. Next, the 
channel program builder subroutine 1s used 
to build the required channel program, 
which is then executed to write Cand 
verify, if so specified) the record. 
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Control is then returned to the problem 
program. 
specified, the track on which the record 
written resides is freed before control is 
returned 


WRITE Macro SPNUNB Records: The procedure 
followed for both the WRITE ID and the 
WRITE KEY macros is exactly the same. The 
only difference between the two macros is 
in the CCW chain built by the channel 
program builder subroutine, IJISBLD. See 
Figure 14 or 15, Chart K for WRITE ID and 
VERIFY, Chart L for WRITE ID and NO VERIFY, 
Chart M for WRITE KEY and VERIFY, and to 
Chart N for WRITE KEY and NO VERIFY. 

The IJISOVP subroutine is entered to 
calculate the physical address and to 
determine the symbolic unit. Next, the 

BLKSIZE (LL) 


RECORD LENGTH 


aa DATA LENGTH (D,) 
First Segment +}. Next Segment ——tol 
i 


Data Record 


IOAREA1 
DTFDA Table 


Block 
Descriptor 


Segment 
Descriptor 


hace Segment Type 01 
SO 


Segment Control Words 


Last 8 data bytes of segment are temporarily 
stored to make room in the |/O area for the 
control words of the next segment. 


Figure 7. Multisegment Spanned Record 


multiple DASD segments and, if in multiple 
segments, the lengths of the individual 
segments must be known. Thus, for each 
segment of a multisegment spanned record, 
it is necessary to execute a read and a 
write operation. 


If the segment control flag in the 
segment descriptor of the existing record 
is type 00, the record to be written is 
handled in a manner similar to a normal 
variable-length record. That is», the 
channel program builder subroutine is 
entered to build the write CCW chain, the 
channel program is executed to write the 


22 IBM VSE/ZAdvanced Functions LIOCS Volume 


If the track hold option has been 


= Segment Type 11 or 10 


channel program builder subroutine is_used 
to build the first portion of the WRITE 
macro channel program. It is at this point 
that spanned record handling differs 
markedly from the handling of records of 
other formats. 


The first portion of the WRITE macro 
channel program (see Figure 14 or 15, 
Charts K or L for WRITE ID; Shanes 
for WRITE KEY) is actually a CCW 
read the eight bytes of control en eannet ron 
contained in the existing DASD record. 

This read operation iS necessary because; 
before a spanned record can be written, the 
arrangement of the record being replaced 
must be determined. That is, it must be 
known if the existing record is contained 
in a single DASD segment (Ctype G0) or in 


Segment 
Type 10 


new record, and control is returned to the 
problem program. 


If the segment control flag in the DASD 
segment read is type Ol (the first segment 
of a multisegment record), the channel 
program builder subroutine is entered to 
build the write CCW chain. The CCW chain 
is then modified according to the various 
options specified for the type of macro 
being used. Next, the length of the 
current DASD segment is determined from the 
control words obtained by the read 
operation and compared to the 
user-specified length of the record to be 
written CLL). 
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If the record length is less than the 
length of the current segment, the byte 
count in the write data CWRD) CCW is 
changed to the length of the record (Cif 
VERIFY is specified, the byte count in the 
verify read data CCW is likewise changed). 
Otherwise, the CCW byte count remains equal 
to the length of the segment that can be 
accommodated on the track; that iS», the 
length of the current segment. The channel 
program is then executed to write the 
segment. 


After the first segment of the record is 
Written, the seek address is updated to the 
next track and a similar procedure is 
followed for the next segment(s) of the 
record. During the procedure for writing 
segments after the first segment, the last 
eight data bytes of the preceding segment 
are temporarily stored in the DTF table to 
allow the control words of the subsequent 
segment to be read into the I/O area (See 
Figure 7). The segment length obtained 
from the control words is used to set the 
byte count in the WRD CCW for all type 11 
segments. Each time a segment is written, 
its length is added to the combined lengths 
of the previously written segments, and the 
total is subtracted from the user-specified 
record length. The result of this 
calculation is the number of bytes in the 
record that remain to be written. When the 
last segment (Ctype 10) is written, this 
remainder is used to determine if the new 
record is larger or smaller than the 
original record. If it is larger, a WLR 
indicator is set and the truncated 
remainder of the record is written; if 
smaller, the byte count in the WRD CCW is 
reduced to the value necessary to write the 
remainder of the record. 


Because each segment of a multisegment 
Spanned record is handled as an individual 
physical DASD record, if the VERIFY option 
is specified, each segment is verified 
after it is written and before the next 
segment is read. Therefore, if VERIFY is 
used, three I/O operations are required for 
each segment: read, write, and read. 


WRITE AFTER Macro -—- VARUNB Records: The 

yte count of the basic read data CCW (see 
igure 11) is set equal to the block length 
LL) of the record to be written, and the 
JISOVP subroutine is entered to calculate 
the physical address and determine the 
symbolic unit. The channel program builder 
subroutine, IJISBLD, is then used to build 
the first portion Cread RZERO) of the 
channel program for the WRITE AFTER macro 
(see Figure 14 or 15, Chart Q). 


Next, the ID (CCCHHR) of the RO record on 
the specified track is set up in the DTF 
table, at location Filename.F, and the 


channel program is executed to read the 
8-byte data field of RO into the DTF table 
at location Filename.XK. The data field of 
the RO record contains the following 
information: 


Bytes 0-4: The CCHHR of the last record 
currently written on the track. 

Bytes 5-6: The number of unused bytes 
currently remaining on the 
track. 

Byte 7: Not used by VSE/Advanced 


Functions. 


Using the information contained in bytes 5 
and 6 of the RO data field, a test is made 
to determine if sufficient room exists on 
the track to write the new record. f 
enough room is not available, the no-room- 
found indicator is set in the DTF table and 
control is returned to the problem program. 


If there is enough room on the track for 
the new record, the DASD space that remains 
after the new record is written is 
calculated to update the RQ record. Next, 
the channel program builder subroutine is 
used to build the rest of the WRITE AFTER 
channel program, which includes the CCWs 
needed to write the updated RO record and 
the new record Cand verify both, if so 
specified). 


The channel program is then executed and 
control is returned to the problem program. 
If the track hold option has been 
specified, the track is freed before 
control is returned. 


WRITE AFTER Macro - SPNUNB Records: The 
procedure followed for the WRITE AFTER 
macro for spanned records is the same as 
that followed for variable-length records 
up to the point of testing to determine if 
there is sufficient room on the specified 
track for the new record. For spanned 
records, the test is first made to 
determine if a minimum length CKEYLEN + 9) 
segment can be written in the space 
remaining on the track. If not, the 
no-room-found indicator is set in the DTF 
table and control is returned to the 
problem program. If the minimum length 
segment can fit», a second test determines 
if the entire record can be written on the 
track. If it can, the record is written in 
the manner described for variable-length 
records. 


If the entire record will not fit in the 
Space remaining on the specified track, the 
length of the portion that can fit is 
calculated and subtracted from the 
user-specified length of the record. 
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The seek address is then updated to the 


next track 


The RO record for the next track is read 

and checked for full availability; that is, 
if the track is not empty; a no-room-found 
indicator is set and control is returned to 
the problem program. The data field of the 
RO record is tested to determine if all the 
remaining bytes of the record (plus eight 
bytes for control words) can be contained 
on the new track. If not, the length of 
the largest single record that fits ona 
track is subtracted from the number of 
record bytes remaining to be written, and 
the seek address iS once again updated. 
This process is repeated until the point is 
reached where the entire logical record can 
be accommodated. If the track hold option 
has been specified, a hold is placed on all 
the tracks checked. 


The channel program builder subroutine 
is then used to build the second portion of 
the WRITE AFTER channel program, and the 
first segment of the record is written on 
the specified track. If KEYLEN is 
specified, the key is written with the 
first segment. The rest of the record is 
then written in as many segments as 
necessary, along with the RO records for 
each of the tracks involved. If the track 
hold option has been specified, the tracks 
are individually freed after the respective 
segment is written. 


If, during the checking of the series of 
tracks needed to write the record, the 
updated seek address indicates a change to 
a new volume, the RO records of all the 
tracks between the user-specified track and 
the first track on the new volume are 
rewritten with their respective data fields 
indicating no space available. Checking is 
reinitiated on the new volume and, when it 
is established that sufficient room is 
available on the new volume, the first 
segment Cand, if specified, the record key) 
is written on the first track. The rest of 
the record is written on subsequent tracks 
in the normal manner. 


WRITE RZERO Macro -~- VARUNB or SPNUNB 
Records: The IJISBLD subroutine is entered 
to build the channel program. The ID for 
the RO record (CCHHO) on the specified 
track is set up in locations Filename.F and 
Filename.K in the DTF table. The number of 
bytes remaining on the track is set equal 
to the full track capacity and inserted 
into bytes 5 and 6 of the RO data field 
(Filename.K). The channel program is then 
executed to erase the track and write the 
updated RO record, after which control is 
returned to the problem program. 


IJGXDAF/SU/SV/S 3 Channel Program Builder 


Subroutine 


Objective: To construct a channel program 
in accordance with the processing macro 
issued in the problem program. 

Note: Figures 14 and 15 provide a summary 
of the channel programs built to process 
DASD records by the Direct Access Method. 


E tr From a direct access logic module 
i 


entry: 
CIJGXDAF/U/V/S) via a branch and link 
n 


struction. 


Exit: To the calling routine. 
Method: To perform direct access 


processing, many different channel 
programs, varying in length from 5 to 17 
CCWs, are needed (see Figures 14 and 15). 
The many CCWs required can be built from 11 
basic CCWs by modifying command codes 
and/or flag bytes. Of hese 11 CCWs, 5 are 
required for initial file loading. The 
other 6 are needed for normal file 
maintenance processing. TIC CCWs are built 
directly from storage addresses. 


For each channel program that is built, 
a string of descriptor bytes are generated 
in the DTF table at program assembly time. 
The content of the string depends on the 
imperative macro issued by the problem 
program to access the file. There is one 
descriptor byte for each CCW in the channel 
program. This descriptor byte is divided 
into three subfields, which perform the 
functions illustrated by Figure 8. 


Bit | O11 2 3 415 6 7 | 


| 

| | | 

| Field | Al B | C | | 
can ee 2 

| 

Field A: References the command Poco 

Field B A relative pointer to select| 

one of the 11 basic CCWs | 

| (see Figure 9). | 

| Field C: | 


Further defines the command 
code, and modifies the flag 


| byte as required. | 


Figure 8. DAM Descriptor Byte 


Because the first CCW in a direct access 
method channel program must be a seek 
command, the seek CCW is generated at 
program assembly time as the first CCW i 
the CCW build area, and is never modifie 
As each channel program is requested, th 
channel program builder subroutine is 

Sa es to build the remainder of the CCW 
chain. 


n 
d. 
e 
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Before entering this subroutine, the 
logic module uses the macro switch to 
determine the address of the string of 
descriptor bytes for the macro issued (see 
Figures 9 and 10). After pointers are set 
to the current descriptor byte and the CCW 
build area, the subroutine isolates the 
relative pointer to the basic CCW needed 
(see Figure 11) and tests to determine if 
the CCW is to be a Transfer In Channel 
CEIG) Figure 11 shows the basic CCWs used 
to build channel programs. 


If fields A and C of the descriptor byte 
are zero, the CCW is to be a TIC. Field B 
determines the address of the CCW to which 
control is to be transferred. This address 
and the TIC command code are stored in the 


TIC CCW Csee Figure 12). If the end of the 
descriptor string has not been reached, the 
Subroutine returns to build the next CCW; 
cae ae ee control returns to the calling 
routine. 


If the CCW is not a TIC, Field B 
determines which of the basic CCWs is moved 
to the build area. Fields A and C of the 
descriptor byte are tested to see which 


fields in the CCW, if any, are to be 
modified (see Figure 12). A test is then 
made for the end of the descriptor string. 
If the end has not been reached, the 
routine returns to build the next CCW in 
the chain; otherwise, control returns to 
the calling routine. 
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READ KEY 


WRITE ID 
(No VERIFY)* 


WRITE ID 
(VERIFY) 


WRITE KEY 
(No VERIFY) 


WRITE KEY 
(VERIFY) 
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No options 
KEYLEN 

IDLOC 
KEYLEN, IDLOC 


No options 
SRCHM 

IDLOC 
SRCHM, IDLOC 


No options 
KEYLEN 

IDLOC 
KEYLEN, IDLOC 


No options 
KEYLEN 

IDLOC 
KEYLEN,IDLOC 


No options 
SRCHM 

IDLOC 
SRCHM, IDLOC 


No options 
SRCHM 

IDLOC 
SRCHM, IDLOC 


DC X'871814' 
DC X'87182C' 
DC X'8718979E' 
DC X'8718AF9E' 


DC X'8F1814' 

DC X'A718881814' 
DC X'8F18979E' 

DC X'A7189A881 01 4' 


DC X'871895' 
DC X'8718AD' 
DC X'8718919E' 
DC X'8718A99E' 


DC X'871891871815' 
DC X'8718A987182D' 
DC X'8718918718119E' 
DC X'8718A98718299E' 


DC X'8F1895' 

DC X'A718881895' 
DC X'8F18919E' 

DC X'A7189A881 095' 


DC X'8F18918F1815' 

DC X'A718881891 8F1815' 
DC X'8F18918F18119E" 

DC X'A7189A881 091 8F1815' 


Property of IBM 


DC X'C718BF14' 
DC X'C718BF2C' 
DC X'C719BF129C' 
DC X'C718BF2A9C' 


DC X'BF8F1014' 

DC X'A718B8881014' 
DC X'BF8F10129C' 
DC X'A718B8881014' 


DC X'871895' 
DC X'8718AD' 
DC X'8718939C' 
DC X'8718AB9C' 


DC X'871893871815' 
DC X'8718AB87182D' 
DC X'8718938718139C' 
DC X'8718AB87182B9C ' 


DC X'8F1895' 

DC X'A718881895' 
DC X'8F18939C' 

DC X'A718B8881095' 


DC X'8F18938F1815' 

DC X'A7188818938F 1815" 
DC X'8F18938F18139C' 

DC X'A718B8881 0938F 181 5' 


DC X'871816' 

DC X'87182A16' 
DC X'8718129E' 
DC X'87182A129E' 


DC X'A7188F1816' 
DC X'A718881816' 
DC X'A7188F18129E' 
DC X'A7189A881 016' 


DC X'871895' 

DC X'8718AB95' 
DC X'8718919E' 
DC X'8718AB9I19E' 


DC X'871891871815' 

DC X'8718AB9187182B15' 
DC X'8718918718119E' 

DC X'8718AB9187182B119E' 


DC X'A7188F1895' 
DC X'A718881895' 
DC X'A7188F 1891 9E' 
DC X'A7189A881 095' 


DC X'A7188F18910A1815' 
DC X'A7188818910A1815' 
DC X'A7188F18910A1811 9E' 
DC X'A7189A881 0910A1815' 


READ ID 


DC X'871816' 

DC X'87182A16' 
DC X'8718129E' 
DC X'87182A1 29E' 


DC X'A7180A1816' 
DC X'A7188A1816' 
DC X'A7180A18129E' 
DC X'A7189A8A1016' 


DC X'871814871895' 

DC X'87181 48718AB95' 
DC X'87181 4871891 9E' 
DC X'8718148718AB91 9E' 


DC X'87181 4871891871815' 

DC X'87181 48718AB9187182B15' 
DC X'87181 487189187181 19E' 

DC X'8718148718AB9187182B119E' 


DC X'A7180A181 40A1895' 

DC X'A7189A8A10148A1895' 
DC X'A7180A181 40A18919E' 
DC X'A7189A8A101 4BA1895' 


DC X'A7180A181 40A18910A1815' 

DC X'A7189A8A10148A 18910A1815' 
DC X'A7180A181 40A18910A18119E' 
DC X'A7189A8A10148A 18910A1815' 


Macros WRITE AFTER and WRITE RZERO use the same strings. If AFTER is not specified in the DTFDA macro, the strings are not generated. 
If AFTER is specified, these strings are generated for all record formats: 


DC X'C718D752C718B5' WRITE RZERO 
DC X'C71834' READ RZERO 


And one of the following strings: 


No VERIFY DC X'C718B18718CD' DC X'C718B18718CB95' 


DC X'C718B18718C BAB95' 


No options 
KEYLEN 
VERIFY 


DC X'C718B18718C9C 71831871 84D' DC X'C718B18718CB91C7183187184B15' 


DC X'C718B18718C BAB91C7183187184B2B1 5’ 


No options 
KEYLEN 


One string for each macro to be used is generated, dependent upon the options specified in the DTFDA macro. 


*Indicates the operation used in the example given of the Channei Program Builder. 


Figure 9. DAM Channel Program Builder Strings Without RPS Support 
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| Macro | Option FIXUNB UNDEF VARUNB SPUNB 


READ ID No options DC X'58871895' DC X‘'C718BF14' DC X'871816' DC X'871816' 
KEYLEN DC X'588718AD' DC X'C718BF2C' DC X'87182A16' DC X'87182A16' 
IDLOC DC X'588718919E' DC X'C718BF129C' DC X'8718128E' DC X'8718129E' 
KEYLEN,IDLOC | DC X'588718A99E' DC X'C718BF2A9C ' DC X'87182A129E' DC X'87182A129E' 


READ KEY | No options DC X'8F1814' DC X'BF8F1014' DC X'487A188F1816' DC X*48A7180A1816' 
SRCHM DC X'48A718881814' DC X'48A718B8881014' DC X‘48A718881816' DC X'48A7188A1816' 
IDLOC DC X'8F18979E' DC X'BF8F10129C' DC X'48A7188F18129E' DC X'48A7180A18129E' 
SRCHM,IDLOC | DC X'48A7189A881014' DC X'48A718B8881014' DC X'48A7189A881016' DC X'48A7189ABA1016' 


WRITE ID 
(No VERIFY)* 


No options DC X'58871814' DC X'871895' DC X'871895' DC X'8718977858871895' 
KEYLEN DC X'5887182C' DC X'8718AD' DC X'8718AB95' DC X'87189778588718AB95' 
IDLOC DC X'588718979E' DC X'8718939C ' DC X'8718919E' DC X'87189778588718AB919E ' 
KEYLEN,IDLOC | DC X'588718AF9E' DC X'8718AB9C' DC X'871B8AB919E' DC X'8718977858871 BABIN9E ' 


WRITE ID 
(VERIFY) 


No options DC X'5887189158871815' DC X'8718936858871815' DC X'8718916858871815' DC X'871897785887189158871815' 
KEYLEN DC X'588718A95887182D' DC X'8718AB685887182D' DC X'8718AB91685887182B15' DC X'87189778588718AB91 5887182B15' 
IDLOC DC X'58871891588718119E' DC X'87189368588718139C ' DC X'87189168588718119E' DC X'8718977858871 891 588718119E' 
KEYLEN,IDLOC | DC X'588718A9588718299E' DC X'8718AB685887182B9C ' / DC X'8718AB91 685887182B119E' DC X'8718977858871 BAB915887182B119E' 


WRITE KEY | No options X'8F1895' X'8F1895' DC X'48A7188F1895' DC X'48A7180A189778580A 1895' 


DC 
(No VERIFY) | SRCHM DC X'48A718881895' DC X'48A718881895' DC X'48A718881895' DC X'48A7189ABA 109778588A 1895' 
IDLOC DC X'8FI8919E' DC X'8F18939C ' DC X'48A7188F1895' DC X'48A71804189778580A 18919E' 
SRCHM, IDLOC X'48A7189A881095' DC X'48A718B8881095' DC X'48A7189A881095' DC X"48A7189AB8A 109778588A1895' 


WRITE KEY 
(VERIFY) 


X'48C718D752C718B5' 
DC X'48A71888189168588F1815' 
DC X'8F189168588F18119E' 

X '48A7189A 881 091 68588F 1815' 


DC X'8F189368588F 1815' 

DC X'48A71888189368588F1815' 
DC X '8F189368588F 181393' 

DC X'48A718B888109368588F 1815' 


DC X'48A7188F 189168580A1815' DC X'48A7180A 189778580A 1 891580A1815' 
DC X'48A718881891 68580A1815' DC X'48A7189A 8A 109778 588A 1891 580A 1815' 
DC X'48A7188F 1891 68580A18119E' | DC X'48A7180A189778580A 1891 580A 18119E ' 
DC X'48A7189A88109168580A1815' | DC X'48A7189A8A 109778588A 1891 580A 1815' 


No options 
SRCHM 

IDLOC 
SRCHM, IDLOC 


Macros WRITE AFTER and WRITE RZERO use the some strings. If AFTER is not specified in the DTFDA macro, the strings are not generated. 


If AFTER is specified, these strings are generated for al! record formats: 


DC X'48C718D752C 718B5' 
DC X'48C71834' 


WRITE RZERO 
READ RZERO 


And one of the following 
strings 
No VERIFY 


DC X'48C718B18718CD' No options DC X'48C718B18718CB95' 


KEYLEN DC X‘48C718B18718CBAB95 ' 


VERIFY 


DC X'48C718B18718C9C7183187184D' DC X'48C 718B18718CB91C7183187184815' 


DC X'48C718B18718CBAB91C7183187184B2B15' 


No options 
KEYLEN 


One string for each macro to be used 's generated, dependent upon the options specified in the DITFDA macro. 


* Indicates the operation used in the example given of the Channel Program Builder. 


Figure 10. DAM Channel Program Builder Strings with RPS Support 
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[Fiewd Bil Basic CCW |Function | 


}o000 X'31',&SEEKADR+3,X'40',5 Search identifier equal using the 
| | laddress specified in the user's 
| |track-reference field. 


|\X'31',&Filename.S+3,X'40',5 JIf relative addressing is used. 


0001 X'29", KEYARG,X'GO',Key length Search key equal for key specified 
| lby user in KEYARG field. 


0010 Wo gee et oAe eA res Go pace length | d data into I/0 area (FIXUNB and 


| 
| 
| | 
| | 
| | 
| | 
| | 
| | 
| Rea | 
| | veer records). | 
| ferge Pen Genta? pean m ae PeeNUNG? <e eee area (VARUNB and | 
B records). 
loot [ariesatorae areo 8 eas count (Cowan) Into TULOE. 
poo pie Wels een ea aoe count (CCHHR) into IDLOC. | 
| 1X'12',&Filename.I,X'GO',5 |Read count (CCHHR) into work area in| 
| | be table if relative addressing is | 
used. 
lorao—[avaoesasceeamnes xvas [earch none agaraza gual vata the | 
{0100 X'39', &SEEKADR+3,X'G40',4 Search home address equal using the | 
| laddress specified in the user's | 
| | Ppraek Fer erence field. | 
| 1X'39',&Filename.S,X'G0',4 lIf relative addressing is used. | 
}0101 X'OE', XIGAREA+8&,X'G4O',Key and Data length jRead key and data into I/0 area | 
| | ene and UNDEF records). | 
| IX'OE',&KEYARG,X'CO',Key length |Read key into user's KEYARG field | 
| | |CVARUNB and SPNUNB records). | 
eae [X"06")&Fi lename.K,X'40" +8 [ead RQ data into work area in DTF | 
able. 
eee 
eae ne ee ee eme eng ne ag Pat 0 count into work in DTF | 
able. 
| | 
11000 X'31',&Filename.F,X'G0',5 Search identifier equal using the | 
| | [address specified in the 5-byte work| 
| i larea in the DTF table. | 
[1001 X'LE',&IOQOAREA,X'40',Count, Key» and Data Read count, key», and data into I/0 | 
| | length fees CFIXUNB and UNDEF records). | 
| IX'1LE',&Filename.C,X'CO',8 }Read count CCCHHRK D D ) into work | 
| jJarea in DTF table (SPNUNB records). | 
}1010 X'11',&Filename.B+32,X'S0',Length of the Control erase of track. | 
| llargest single record that fits on a | 


track. | 


Figure l1l. Basic CCWs for DAM Channel Program Builder 
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‘Field Al Field B | Field C |Meaning 
1 | 1 | Basic CCW not modified. 


Modify command code to multiple-track operation. 
Modify command code in write operation. 


Modify command code to multitrack, set SLI flag on. 


Modify command code to multitrack, set CC flag off. 
Modify command code to write, set CC flag off. 


Zi Zl 2,2), 2/2; 2j,2 
Zi 2zy,~2ij 2/2], 2;,2/,2 


1 1 
0 0 
0 1 
0 0 
0 1 |Modify command code to write, set SLI flag on. 
1 0 
1 1 
1 0 


ee oe 
Zzi/Zi>pzjizjzmzizlizsz2z 
ZiZl/ Sj zi zizi2a 


Modify command code to multitrack, set CC flag off; 
ISLI flag on. 


1 |Set SKIP flag on in CCW. 

O |Set SLI flag on in CCW. 

1 |Set SLI and SKIP flag on in CCW. 

0 |Set CC flag off in CCW. 

1 Set CC flag off, SKIP flag on in CCW. 

0 Set CC flag off, SLI flag on in CCW. 

1 {Set CC flag off, SLI and SKIP flag on in CCW. 
0 |; TIC to *-32 

O |TIC to *-24 
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Note: NNNN = bits 1-4 of the descriptor byte and is one of the ll-bit 
combinations shown in Figure 11 under the column heading Field B. This 
field contains the relative pointer to the basic CCW (see Figure 11). 


cc - Command Chaining 
SLI - Suppress Length Indicator 
SKIP - Suppress Transfer of Information to storage. 
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Figure 13. 

The following discussion describes how the 
DAM channel program builder constructs a 
channel program for the given example. 


Example: Write an undefined record 
referenced by ID in the location specified 
by the user's track-reference field, and 
return the corresponding track record 
identifier (CCHHR) in IDLOC Coption). 


Figure 13 illustrates the CCWs needed 
for the complete channel program to 
accomplish this operation. In all, five 
CCWs are required. The first CCW (seek) 15 
generated at assembly time and the 
remaining four CCWs are built using the 
string of descriptor bytes included as part 
of the DTF table for the WRITE ID macro 
(see Figure 9 or 10). The descriptor 
string for the WRITE ID macro is: 
X'8718939C'. 


Except for the Seek CCW that is 
generated for any channel program at 
assembly time and never modified, each pair 
of hexadecimal characters (descriptor byte) 
corresponds to one CCW. Thus, X'87' 
corresponds to the CCW to Search Identifier 
Equal as illustrated in part 1 of the 
explanation that follows. 


The CCW chain 
descriptor string 


is generated from the 
in this order: 


Teg X'87' €10000111):;: Figure 11 
illustrates that the CCW for a 
descriptor byte with a B-field = 0000 
is a Search Identifier Equal CCW. 
Figure 12 further illustrates that 
descriptor byte with an A-field = 1 and 
a C-field = 111 performs no 


identifier equal to the address specified in 
lthe user's track reference field. 


Write the data portion of the record 


| 

| 

| 

| 0 ae = a Aree “TSS CER ADRES eee? Search 

| X18" X'O8',Pointer to *-8 TIC to *-8 

| Ros! X'O05',&IOAREA+16,X'60', 

| [Data length Ifrom the IOQAR 
| x*S3C* X'12',&IDLOC,x'O00',5 


Read the count field 
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modification of the b 
Therefore, the second 
being the Seek CCW) i 
program CCW chain is 
Search Identifier Eq 
°31',&SEEKADRt+3,X'4 
* €00011000): Because both the A 

C fields are all zeros (Ca 
racteristic of a descriptor byte 

d to generate a TIC CCW), the second 
criptor byte in the string generates 
Ic CCW for the third CCW in the 
channel program. Figure 10 illustrates 
that a descriptor byte of this kind 
with a B-field = Q011 supplies the CCW, 
TIC to * - 8 (€see Figure 13 for 
generated CCW). 


X'93' €10010011): The B-field = 0010 
in this descriptor byte indicates that 
the next CCW in the channel program 

in Will be the third basic CCW (see 
re 11). Because the A-field = 1 
the C-field = 011, Figure 12 shows 
the command code is modified to a 
E and that the SLI (Suppress Length 
icator) bit is turned on. 


(10011100): The B-field = 0011 
e last descriptor byte indicates 
the la Win the chain will be 
re) CCW in Figure 11, Read 
. A descriptor byte 
= 1 anda C-field = 100 
cates th he command code is 
fied for a multitrack operation and 
that the command chaining bit is turned 
off to signify the end of the channel 
program (see Figure 12). 
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INITIALIZATION AND TERMINATION 


When a DASD file is processed by the Direc 
Access Method, all extents specified by th 
user must be opened before any data is 
transferred. 


t 
e 


The DAM Open logical transients make all 
the extents for the file available for use 
by the problem program. To accomplish 
this, the open routines check and create 
Standard DASD labels or, in the case of 
nonstandard labels, pass control to the 
user for label processing. 


To open a file, the open routines use 
label information supplied by the user in 
job control statements and stored in the 
label information area. This information 
is used either to check or create the 
actual file labels in the VTOC CVolume 
Table of Contents) on the DASD volume 
containing the file. 
Functions DASD Labels for details of the 
label information area and the standard 
DASD file labels processed by logical [0CS. 


Close is required for DASD files ; 
processed by the Direct Access Method to 
invoke a FREEVIS for the DTFDA extension 
and handle the user standard trailer labels 
if specified. 


DAM OPEN CHART O1 


For input files, the volume and format-l 
labels are checked against the SYSRES label 
information supplied by the user's /7/ DLBL 
job control card. User labels are then 
processed, providing that LABADDR=address 
has been specified in an TFDA macro 


defining the file. Finally, EXTENT 
information is passed to the user for 
checking and/or processing (see Figure 16). 


b 
L 
D 
y 
h 


Extent Lower Limit 


\Bytes 2 to 5 


ees ce 
fevers 6 to 9 {Extent Upper Limit 


coe Gok 
ees 12 0 for disk 
|Byte 13 lo for disk 
ee ee ee ee ee ee ee | 


Figure 16. 


| 
| 
l\Bytes 10, 11 |Symbolic Unit | 


Format of Extent Information to 
User 


For output files, extents are check 


ed to 
ensure that they do not overlap the VTOC or 


Refer to VSE/Advanced 


other extents. Labels are created and 
written in the VTOC, and user labels are 
processed, if required. 


Refer to VSE/Advanced Functions 


Diagnosis Reference: LIOCS Volume 4 for 
detailed descriptions of common DASD 
polos that open direct access method 
files. 


Relative Addressin 


When relative addressing is specified for a 
file, the open routines convert extent 
information supplied as actual physical 
DASD addresses into a relative addressing 
format. The converted extent information 
is stored at the end of the DTF table», ina 
table (DSKXTNT) at location &Filename.P+48. 
The 12 bytes preceding the DSKXTNT table 
contain evice-dependent alteration factors 
(G4 bytes each) used to convert the extent 
limit addresses. The format of the DSKXTNT 
table and the location of the alteration 
factors is illustrated in Figure 17. The 
oa ores ren factors are summarized in Figure 


Actual C1, C2, H1, H2 address Alteration factor for C1 
Alteration factor for C2 Alteration factor for H1 


My7Vy-l,+1 


et a 
ee 
et 


First Extent 


Second Extent 


Third Extent X37Xotl(Vg-Lytt) 
Last Extent Xy7 Xn tlV,- bt) 
End of Table H ; i 


1 ' ' a 


TTT2 M 82 TTT1 


TTT1, L = relative track number of the 
extent lower limit; that is, the 
number of tracks from cylinder 0, 
track 0 to the lower limit of the 
corresponding extent. (3 bytes) 


TTTe2 = cumulative total tracks in 
current extent plus previous 
extents in the table, (3 bytes) 


B2 = 0 for a disk device. (1 byte) 


symbolic unit number, incremented 
by 1 for each new symbolic unit. 
(1 byte) 


V = number of tracks from cylinder 0, 
track 0 to the upper limit of 
corresponding extent. 


DSKXTNT Table for Relative 
Addressing 


Figure 17. 
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Factor {| 2311 | 231472319 | 3330 3340 | 3350 | 3375 


Cl 1 1 486% 3072 7680 3072 
20 | 19 | 12 | 30 l2 


Figure 18. Alteration Factors for Relative Addressing 


An actual physical extent address is value obtained is the L Cor TTT1) value and 
converted to a relative address in the is stored in the DSKXTNT table (see Figure 
following manner. Each of the four bytes 17). 

(CCHH) of the actual address are handled 

separately and are referred to as Cl, C2, If the conversion is performed for the 
H1, and He. Starting with Cl, the first upper limit address of the extent, the 
three bytes of the actual address are converted value is increased by 1 and TTTl 
multiplied, one at a time, by the is subtracted from the result. The value 
respective device-dependent alteration obtained from this calculation is the total 
factor (see Figure 18). The result of each number of tracks included in the extent. 
multiply operation is added into an The total number of tracks in the extent is 
accumulating register. To complete the then added to the total number of tracks of 
conversion, H2 is added to the accumulated all previous entries to obtain the TTT2 
result. If the conversion 1s performed on value for the current extent entry in the 
the lower limit address of the extent, the DSKXTNT table (see Figure 17). 
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Chart O1. DAM Open 


From Open Monitor 
$$BOPEN1 


$$BOSFBL * 


1. Links the LTA to 
the OPEN/CLOSE 
SVA Phase. 


$IJJGTOP * 


1. Builds and verifies 
extents in the 
VTOC. 


. Handles the extent 
exit/user label 
interfaces. 


$$BOSVLT * 


1. Links the SVA Phase 
back to the LTA. 


SVC 2 FETCH 
$$BOPEN 


* Documented in VSE/Advanced Functions Diagnosis 
Reference LIOCS Volume 4 SAM for DASD. 
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DAM CLOSE 


SSBODACL: DA Close, Input/Output, Charts 
CA-CC 


Objective: To read or write standard user 
trailer labels, and to test for track hold. 


Entry: From the Close Monitor or from a 
message writer phase. 


Exit: To the Close Monitor, $$BCLOSE; to 
OMSG1 if a meSsage is required; or to 
OSDC2 to free any tracks. 


Method: For input files, phase $$BODACL 
initializes the search CCW with a key 
argument of the first standard user trailer 
label (UTLO). The label is read and 
control is passed to the user's label 
routine. Processing of standard user 
trailer labels contirues until either the 


maximum number of trailer labels are read 
(8 for disk devices), or a file mark Ca UTL 
with a data length of O) iS read. Control 
then returns to the Close Monitor. 


For output files, phase $$BODACL 
initializes the search CCW with a key 
argument of UTLO, the end-of-file mark 
written after the last UHL. When the UTLO 
label is found, control passes to the 
user's label routine. Control returns to 
SSBODACL to write the standard user trailer 
label on the user's label track. The first 
Standard user trailer label written is 
identified by UTLO and is written over the 
end-of-file mark previously identified by 
UTLO. A new end-of-file mark Ca standard 
user trailer label with a data length of 0) 
1s written and the Close Monitor is fetched 
after all standard user trailer labels are 
processed, The maximum number of standard 
user trailer labels permitted Cexcluding 
soo ce erry. Te mark), is 8 for a disk 

evice. 
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INDEXED SEQUENTIAL ACCESS METHOD 


The indexed sequential access method CISAM) 
permits processing DASD records in both 
random and/or sequential order by control 
information. For random processing, the 
user supplies the control information 
(record key) of the desired record to ISAM, 
and then issues READ or WRITE macro 
instructions to transfer the specified 
record. For sequential processing, the 
user specifies the first record to be 
processed, and then issues GET and/or PUT 
macro instructions to retrieve or insert 
records in sequential order by record key. 
Variations in macro instructions permit: 


* A logical file of records to be loaded 
onto DASD (created). 


° Individual records to be read from, 
added to, or updated in the file. 


RECORD TYPES 


n ISAM-organized file 
records either blocked 
physical record in the 
key area. If the 
the record key 


Logical records i 
must be fixed-len 
or unblocked. Ea 
file must contain 
records are block 


leouae 


Function 
Load - Unblocked Records 8 
L 


oad - Blocked Records 8 


Add - Blocked Records | 8 


andom Retrieve - Unblocked 
ecords 


Unblocked Records | 
R 


an 
Blocked Records | | 
i 


Figure 19. 


Key Length -— 
ee ene == 


Add - Unblocked Records | 8 re rongen| 10 imecare Length 


tabes oot = 


i eet peneeni® a ee 
8 Key Length 10 |Record Length 


equential Retrieve - | - [Key Length| 10 [Record Length 
dom or Sequential Retrieve —] = | -= | -— pase Length CIncluding 


(control information) of the highest Clast) 
logical record in the block is stored in 
the key area of the block. 


STORAGE AREAS 


I/70 Areas 


An I/0 area must be specified for each ISAM 
file to be processed in a problem program. 
This I/O area must be defined to contain 
sufficient space for the data area. If 
unblocked records are to be retrieved 
sequentially or records are to be loaded or 
added, space for a key field is required. 
Space for the count area must be provided 
when the file is being loaded or additions 
to the file are being made. Space for a 
sequence-link field is required when 
additions are to be made to the file or 
when records are retrieved from a file. 

The sequence-link field is used for 
overflow records (Crefer to the section “Add 
Records to a File™). 


Figure 19 shows the ISAM I/O area 
requirements. 


|1Sequence| 
| Lin Data 
Record Length 


Record Length X Blocking 
{Factor 


Record Length X Blocking 
| Factor 


peeOnd Length 


| |\Keys) X Blocking Factor 
lor 
| 10 |Record Length 


ES EL NY SY SS 


* Whichever is larger. 


ISAM I/O Area Requirements Cin bytes) 
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The format of the sequence- link field of an overflow record or the index- level pointer is MBBCCHHRFP: 


231 1/231 4/2319/3330/3340 Disk 
M = Extent Sequence Number 
BB = 00 
CC = Cylinder Number 
HH = Head (Track) Number 
R = Record Number 
F = (ceccciii) Entry Type and Index Level. See Note 1. 
P = Pointer type. See Note 2. 


Note 1: F =ccecciii 


Entry Type: (ceecc) Index Level (iii) DASD Address Information 


00000 - Normal Entry (Unshared Track) 000 ~ Track Index 
001 = Cylinder Index 
010 = Master Index 


00001 = Normal Entry (Shared Track) 000 = Track Index R =N (Points to First Data Record on the Track) 
00010 - Overflow Entry (End) 000 = Track Index or Sequence- Link Field 
00011 - Overflow Entry (Chained) 000 - Track Index or Sequence - Link Field R=N (Actual Record Address) 


00100 - Dummy Entry (End) 000 - Track Index M through R =0 
OOT - Cylinder Index 
010 = Master Index 


00101 = Dummy Entry Chained ) OOT - Cylinder Index M through H Points to First Track on Next Cylinder, R =0 
O10 - Master Index 


00110 = Inactive Entry 000 - Track Index M through R =0 
001 - Cylinder Index 
010 - Master Index 


Note 2: 


P = Seek Op- Code 


Figure 20. Format of Sequence-Link Field/Index Level Pointer 
LOAD: To create or extend a disk file of 8-byte count field, a cont 


blocked or unblocked records. This area field (key area), and the 
must be defined with enough capacity for an 
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ADD, UNBLOCKED RECORDS: The output area for 
adding unblocked records to an ISAM 
organized file must be defined with enough 
Capacity for an 8-byte count field, a 
control information field (key area)» and a 
data record area. The data record area 
must have space for a 10-byte sequence-link 
field that is used in conjunction with 
overflow records (refer to the section "Add 
Records to a File™). The sequence-link 
field is required when a record is written 
on an overflow track. ISAM determines the 
correct sequence link and stores this 
information at the beginning of the data 
section of the I/O area. When the 
sequence-link field is not used, the ten 
unused bytes fall at the end of the data 
section and are ignored. Figure 20 shows 
phe ore of the 10-byte sequence-link 
ie 


ADD, BLOCKED RECORDS: The output area for 
adding blocked records to an ISFMS 
organized file must contain enough space 
for an 8-byte count field, a control 
information field (key area) and a data 
section large enough to contain the block 
of logical records. The minimum size for 
the data section 1s one logical record plus 
10 bytes to be used for a sequence-link 
field when required. 


SEQUENTIAL RETRIEVE, UNBLOCKED RECORDS: The 
Input area for reading unblocked records 
must contain sufficient capacity for a key 
area and a data area. The data area must 
include enough space for the logical record 
plus 10 bytes for the sequence-link field 
of overflow records. If a record does not 
have a sequence~link field, the extra 10 
bytes in the I/O area fall at the end of 
the data section and are ignored by the 
program. 


RANDOM RETRIEVE, UNBLOCKED RECORDS: The 
input area for reading unblocked records 
must contain space for a data area. The 
data area must include enough space for the 
logical record plus 10 bytes for the 
sequence-link field of an overflow record. 
If a record does not have a sequence-link 
field, the extra 10 bytes in the I/0 area 
fall at the end of the data section and are 
ignored by the program. 


RETRIEVE, BLOCKED RECORDS: The input area 
for reading blocked records must contain 
Space for a data area. The data area must 
be large enough to contain a full block of 
records. The minimum size of the data area 
is one logical record plus 10 bytes for the 
sequence-link field used with overflow 
records. 


When blocked or unblocked records are to 
be retrieved and processed directly in the 
I7O0 area, a register must be specified. 
This register is used for indexing, to 
point to the beginning of each logical 
record when it is needed for processing. 


Work Areas 


hen a work area is specified on input, 
SAM moves each record from the I/0 area to 
he work area. The problem program can 

hen process the record tn the work area. 
hen a work area is specified on output; 
SAM moves the record from the work area to 
he I/O area in preparation for 

poner ne the record to DASD storage. 

e 

h 


a work area is specified, an I[/0 


or Bich tH Sct tHk 


gister is not required. Figure 21 shows 

e ISAM work area requirements. 

| Unblocked | Blocked 

| Records Records | 
| ! | 
|Add i KL+DL or 10% | DL or | 
| | | C(KL+10)% | 
iesadon | DL | DL | 
oer noes | | | 
{Sequential | KL+DL | DL | 
{Retrieve | | | 
ieee K = Key | 
| D = Data | 
| L = Length | 
| 


| * Whichever is larger. 


Figure e2l. ISAM Work Area Requirements (Cin 


Bytes) 


OVERFLOW AREAS 


The location of the overflow area(s) for a 
logical file may be specified by the user. 
The overflow areas may be built by one of 
three methods: 


1. Overflow areas for records may be 
located on each cylinder within the 
prime data area that is specified by a 
job control extent card for the data 
file. In this case, the user must 
specify the number of tracks to be 
reserved for overflow on each cylinder 
occupied by the file. The overflow 
records that occur within a particular 
cylinder are written in the cylinder 
overflow area for that cylinder. The 
number of tracks to be reserved for 
each cylinder overflow area must be 
specified in the DTFIS entry CYLOFL 
when a file of records is to be loaded 
and when records are to be added to an 
organized file. 
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O% An independent overflow area may be 
specified for storing all overflow 
records for the logical file. In this 
case, a job control EXTENT card must be 
included when the program is executed 
to specify the area of the volume to be 
used for the overflow area. This area 
may be on the same volume with the data 
records, or ona different volume that 
is online. However, it must be 
contained within one volume. CIt must 
be the same kind of device as that 
containing the prime data area.) 


3% Cylinder overflow areas (method 1) and 
an independent overflow area (method 2) 
may be used in combination. In this 
case, overflow records are placed first 
in the cylinder overflow areas within 
the data file. When any cylinder 
overflow area becomes filled, the 
additional overflow records from that 
cylinder are written in the independent 
overflow area. The specifications 
required for both methods 1 and 2 must 
be included for this combined method of 
handling overflows. 


All records placed in the overflow area 
will be in the unblocked format and will 
have a sequence-link field prefixed to each 
record. There must always be one prime 


data track available (for a DASD record 
that has a data length of O) when additions 
are being made to the last track in the 
prime data area containing records. The 
format of the overflow area upper limits 
(MBBCCHHR) is shown in Figure 29. 


INDEXES 


As ISAM loads the records, it creates a set 
of two or three indexes to be used to 
control the processing and location of the 
data records. Two indexes, the track index 
and the cylinder index, are always built 
for each file. The third, a master index, 
is built only when specified by the user. 

A master index should be specified only for 
large files. As a guideline, if a cylinder 
index occupies less than five tracks, it is 
uSually faster to search only the cylinder 
index (followed by a search on the track 
index) than to search also a master index. 


Indexes are developed as a series of 
entries, each including the address of a 
DASD track and the highest Clast) record 
key on that track or cylinder. Each entry 
is a separate DASD record composed of a key 
area and a data area. The key area 
contains the highest key on the track or 
cylinders and its length (number of bytes) 
is the same as the key~-area length 
specified by the user for the data records. 
The data area of each index record is 10 


bytes in size and contains the physical 
address of the logical record or of another 
index. Figure 20 shows the format of the 
ee ale index level pointer Cindex data 
area). 


Trac Inde (TI) 


The lowest level index for logical file is 
the track index. This index has two 
important functions. 


° Point to the correct track in the 
ey ee that contains the specified 
ey. 


° Provide direct linkage to the record 
overflow areas. 


Each track index is built on the cylinder 
that it is indexing. The track index is 
located on the first track of each 
cylinder. The index can occupy a partial 
track, a full track» or more than one 
track. If the track index does not fill a 
track and if the remaining portion is large 
enough to hold any prime data records, then 
prime data records are stored on the 
remaining portion of the track. 


The track index can contain the 
following types of entries: 


° Normal Entry - Unshared 
° Normal Entry ~- Shared 

e Overflow Entry - Chained 
° Overflow Entry —- End 

° Dummy Entry ~- End 

° Inactive Entry. 


When first created, the track index is 
formatted with two entries for each track 
used on the cylinder. These two entries 
are the normal entry and the overflow 
entry. Each entry is a DASD record 
containing a key area and a data area. 
Figure 22 is an example of a track index 
built for the prime data area of a logical 
file utilizing eight tracks on a cylinder. 


The normal entry is the first of the two 
entries. After a track is loaded with 
records for a file, this entry has in its 
data area the address of the track 
referenced by the entry. The key of the 
last record on the track is maintained in 
the key area of the normal entry. The key 
area is changed each time a record is added 
to the track, so that it always reflects 
the key of the last record on the track. 
(Refer to the section “Add Records to a 
File”™.) When the first track containing 
prime data records is shared with the last 
or only track of the track index, the data 
area of the track index normal entry is 
modified to indicate a shared entry. 
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TRACK INDEX 


Track 1 Key Track 1 Key Track 2 Key Track 2 
Address 75 Address 150 Address 150 Address 
D K D D K D K D 
Key Track 3 Key Track 3 be ees eo nie Key Track 8 Key Track 8 
240 Address 240 Address 980 Address 980 Address 
K D K D K D K D 


K D 


Dummy Entry 


K = Key Area 
D = Data Area 
COCR = Cylinder Overflow Contral Record (RO) 


Figure 2e. 


The overflomw entry is used both in the 
track index and in the sequence-link field 
of an overflow record. Refer to the 
section “Add Records to a File™ for a 
description of the overflow entry in the 
sequence~link field. The overflow entry is 
required for handling overflow chaining 
when additional records are inserted into 
the file. Before a record is added to a 
track, the track index overflow entry for 
that track is similar to the normal entry 
in that they both contain the key of the 
last record on the track and the address of 
the track. Note that, at this point, the 
last record on the track is the last record 
placed on the track when the file was 
originally loaded. With overflow records, 
the data area of the overflow entry is 
changed to reflect the address of the 
lowest record in the overflow chain. An 
overflow chain is developed for each track. 
The key area of the overflow entry is not 
Changed, but always contains the key of the 
highest record, because records added to a 
track always have keys lower than the 
highest key originally loaded onto the 
track. The technique used to add records 
Sree nee in the section “Add Records to 
a ile" 


The two types of overflow entries in the 
track index are overflow chained entries 
and overflow end entries (see Figure 20). 
The data field of the track index overflow 
entry is initially set to indicate an 
overflow end entry. If an overflow chain 
is later built, the overflow end entry 
indicates the last overflow record in the 
chain. An overflow chained entry is built 
to indicate an overflow chain exists. The 
data field of an overflow chained entry 
contains a pointer to the lowest record in 
the overflow chain. 


Indexed 


Schematic Example of a Track Index 


The last entry on a track index is 
always a dummy end entry. The dummy end 
entry indicates the end of the track index 
and indicates that any following records 
are logical file data records. 


The key area of the dummy record is the 
same length as the user's key length and is 
filled with X'‘'F's. The data field is the 
same length as the normal entries but is a 
null field. 


Inactive track index entries are built 
during the load operation. For a 2311 DASD 
device type, inactive entries are written 
for the unused portion of the prime data 
extent. For all other DASD device types, 
inactive entries are written only for the 
unused portion of the last cylinder 
containing prime data records. The key 
area of inactive entry is filled with X'F's 
and is the same length as the user's key 
length. The data field is the same length 
as the normal entry. See Figure 20 for the 
format of the track index data area 
entries. 


When the cylinder overflow option is 
specified by the user, record zero (track 
descriptor record) of track zero in the 
track index is used as a Cylinder Overflow 
Control Record (COCR). This entry is set 
up in the data area of record zero (RQ0O). 
The address of the last overflow record on 
the cylinder and the number of tracks 
remaining in the cylinder overflow area are 
maintained by ISAM in this record. The 
format of the COCR is HHROOTOO, where HHR = 
Address of last overflow record on 
cylinder. T = Number of tracks remainin 
in the cylinder overflow area. The COCR 
format is shown in Figure 23. 


g 
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H B B 
Number of Bytes 
Remaining on Track 
(Zero for Fixed 
Length Record) 


Address of Last 


Overflow Record 
on Cylinder 


T 


Number of 
Track Remaining 
In Cylinder 
Overflow Area 


Reserved 


Figure 23. 


CYLINDER INDEX 


: i 2 
Key Cylinder 1 Key sea) (eee ee Key 
Track 1 Track 1 473 
98- 1850 0 
Address Address 


D 


L_ 


Dummy Entry 


K 
All 
1-Bits 

K 


K = Key Area 
D = Data Area 


Figure 24. Schematic Example of a Cylinder 


Cylinder Index (CJ) 


The cylinder index is present for all 
ISAM-organized files. It is an 
intermediate level index used to point to 
the correct track index. 


The cylinder index can contain the 
following types of entries: 


* Normal Entry 

* Dummy Entry - Chained 

¢ Dummy Entry —- End 

e Inactive Entry. 

A cylinder index is built by ISAM to 


contain one index entry for each cylinde 
in the prime data area of the file. Thi 
entry contains the highest record key 
associated Cin the cylinder or a 
corresponding overflow area) with the 
cylinder, and the address of the track 
index for that cylinder. Figure 24 is an 
example of a cylinder index built for a 
file requiring nine cylinders. The 
cylinder index can be located wherever the 
user chooses except on one of the cylinders 
that contain data records for the file. It 
must be on a Separate cylinder or it can be 
placed on a separate volume that will be 
online whenever the logical file is 
processed. The cylinder index can also be 
located on one or more successive 
cylinders. When more than one cylinder is 
required, the last entry on each cylinder 


r 
5 


Cylinder Overflow Control Record (COCR) 


Cylinder 9 
Track 1 


Address 


Index 


is a dummy chained entry that points to the 
first track of the next cylinder. However, 
the cylinder index cannot be continued from 
one volume to another. A job control 
EXTENT card must be used to specify the 
correct location for this index. 


The last entry in the cylinder index is 
a dummy end entry. The key of the dummy 
entry is the same length as the user's key 
length and contains bytes of all one-bits. 
The data field is of the same length as the 
normal entries, but is a null field. 


Inactive cylinder index entries have the 
same format as the track index inactive 
entries. They are written to provide for 
future expansion of the file and for OS/VS1 
and OS/VS2 compatibility. An inactive 
cylinder index entry is written for each 
track tn the cylinder containing track 
index inactive entries. See Figure 20 for 
the format of the cylinder index data area 
entries. 


Master Index (MI) 


x 1S the highest level index 
ile built by ISAM. This 

ls; and if required, must be 
user in the DTFIS entry 
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MASTER INDEX 


Key Track X +1 Key Track X +2 Key Track X+ 3 
4730 Address 8560 Address 12780 Address 
K D K D 0 K 


All 
1—Bits 
K D 


Dummy Entry 


K = Key Area 
D = Data Area 


Figure 25. 


The master index can contain the 
following types of entries: 


Normal Entry 

Dummy Entry —- Chained 
Dummy Entry — End 
Inactive Entry. 


The master index must immediately precede 
the cylinder index on a volume, and it may 
be located on one or more successive 
cylinders. Whenever it is continued from 
one cylinder to another, the last index 
entry on the first cylinder contains a 
linkage field that points to the first 
track of the next cylinder. This type of 
entry iS a dummy chained entry. A master 
index may not be continued from one volume 
to another. It must be completely 
contained within one volume. The last 
track assigned to the master index area 
must be contiguous to the first track of 
the cylinder index area. A job control 
EXTENT card must be used to specify the 
correct location. Like the cylinder index, 
it can be located on the same volume with 
the data records or ona different volume 
that will be online whenever the records 
are processed. 


The entries in this index point to each 
track of the cylinder index. Each entry 
contains the highest record key on the 
cylinder index track and the address of 
that track. For example, if a master index 
is located on track x anda 
is located on tracks x+1 th 
master index might contain t 
Shown in Figure 25. 


cylinder index 
rough x+20, the 
he entries 


The last entry on the master index is a 
dummy end entry. The key of the dummy end 
entry is the same length as the user's key 
length and is filled with X'‘'F's. The data 
field is of the same length as the normal 
entries», but is a null field. 


Inactive master index entries have the 
Same format as the track index inactive 
entries. They are written to provide for 
future expansion of the file and for OS/VS 
compatibility. An inactive entry is 
written for each track of the cylinder 


Indexed 


D K 


Schematic Example of a Master Index 


index containing inactive entries. See 
Figure 20 for the format of the master 
index data area entries. 


FUNCTIONS PERFORMED BY ISAM 


ISAM performs the following four basic 
Le as specified in the DTFIS entry, 


° LOAD. To build a logical file on DASD 
or to extend a file beyond the highest 
record presently in an organized file. 


° ADD. To insert new records into an 
organized file. 


° RETRVE. To retrieve records from a file 
for either random or sequential 
Processing and/or updating. 


° ADDRTR. Both to insert new records into 
a file (ADD) and to retrieve records for 
processing and/or updating CRTR). 


LOAD OR EXTEND A DASD FILE 


Data records to be loaded onto a DASD file 
must be sorted into sequence by record key, 
before being presented to the ISAM load 
routines. 


The data records are written by ISAM 
onto a DASD track in an area of the file 
(called the prime data area) specified by 
the user. The position of each logical 


record is a function of the record key used 
in the presort operation. That iS», each 
record is written one after the other onto 
the prime data area of the logical file. 
The user must specify one extent for the 
Prime data area on one pack. If a file is 
to be loaded onto more than one pack, the 
Prime data area must continue from the last 
track of one pack to the first track of 
another pack. Extents must be adjacent. 
The starting and ending limits of the prime 
data area are specified by the user in job 
control EXTENT cards. 
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In addition, all packs to be used for a 
multipack file must be online throughout 
the load operation. 


ADD RECORDS TO A FILE 


After a logical file has been organized on 
DASD, it may subsequently become necessary 
to add records to the file. These records 
may contain keys that are above the highest 
key presently in the file and, thus, 
constitute an extension of the file. They 
may also contain keys that fall between or 
below keys already in the fil 
therefore require insertion ji 
sequence in the organized fil 
d 


° 


If all records to be added have keys 
that are higher than the highest key in the 
organized file, the upper limit of the 
prime data area of the file can be adjusted 
Cif necessary) by the specification in a 


job control EXTENT card, and the new 
records can be added by presorting them and 


loading them into the file No overflow 
area is required. The file iS merely 
extended further on the volume. However» 
new records can be batched with the normal 
additions and added to the end of the file. 


If records must be inserted among those 
already organized, an overflow area is 
required. ISAM uses the overflow area to 
permit the insertion of records without 
necessitating a complete reorganization of 
the established file. The fast random and 
sequential retrieval of records is 
maintained by inserting references to the 
overflow chains in the track indexes, and 
by using a chaining technique in the 
overflow records. For chaining» a 
sequence~link field is prefixed to the 
user's data record in the overflow area. 
The sequence-link field enables ISAM to 
follow a chain of sequential records in a 
search for a particular record. This 
10-byte sequence-link field has two types 
of entries: an overflow chained entry and 
an overflow end entry (see Figure 20Q). 


The overflow chained entry contains the 
ddress of the record in the overflow area 
hat has the next higher key. The overflow 
nd entry indicates the end of the chain. 

l 1 he overflow area are 
n dless of the specification 
M) for the data records in 


insertion, ISAM 
ed indexes first to 
ck the record must be 
roper track index 
e point of insertion 
The keys of the 
cks in the 
ile determine the 
r 
ed 


To adda rec 
searches the es 
determine on whi 
inserted. After 
entries are locat 
can then be determi 
last records on th 
originally organize 
track where an inse 
record ts always in 
where: 


t 
r 
R 
e. 
) 
st 


e- OT & 


ecord belongs. A 
on the track 


t tO—de =o 


l. The last key is higher than the 
insertions and 


2. The last key of the preceding track is 
lower than the insertion. 


After the proper track is determined, ISAM 
searches the tndividual records on the 
track or overflow area Cif necessary) to 
find where the record belongs in key order. 
This results in either of two conditions: 


a The record falls between two records 
presently on the track. ISAM adds the 
record by inserting it in the proper 
Sequence and shifting each Succeeding 
record one record location higher on 
the track, until the end record is 
forced off the track. ISAM transfers 
the end record to the overflow area; 
and prefixes the record (data area) 
With a sequence-link field. The first 
time a record is inserted on a track, 
the sequence-link of the overflow 
record indicates that this is the 
highest record associated with the 
track. Thereafter, the sequence-link 
field of each overflow records points 
to the next higher record for that 
track. ISAM also updates the track 
index to reflect this change. The 
normal entry for the track has the key 
field changed to indicate the new last 
record located on the track. The 
overflow entry for the track has the 
track address (in the data area) 
changed to point to the address of the 
overflow record. 


as The record falls between the last 
record presently on the track and the 
last record originally on the track. 
Thus, it belongs in the overflow area. 
ISAM writes the record in the overflow 
area following the last record 
previously written. ISAM searches 
through the chain of records associated 
with the corresponding track for this 
record and identifies the sequential 
position the record should take. Then 
the sequence-link fields of the new 
record, and of the record preceding it 
by sequential key, are adjusted to 
point to the proper records. 


RANDOM RECORD RETRIEVAL 


Random retrieval from an indexed-Ssequential 
file is performed by the READ macro 
instruction. In response to the READ 
instruction; ISAM searches the indexes to 
locate the track containing the desired 
record and then searches the track for the 
record. The block containing the record is 
read and the record iS made available for 
processing. For both blocked and unblocked 
files, only the data portion of the record 
is read; the key field is not read. 
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After record processing has been 
completed, a WRITE macro instruction can be 
issued to write the record back in its 
original location. To allow overlap of 
input and output operations with 
processing, READ and WRITE do not wait for 
completion of the operations, but return 
control to the problem program. The WAITF 
macro instruction is used at the point in 
the program where processing must be held 
up until the I/O operation is complete. 


SEQUENTIAL RECORD RETRIEVAL 


Sequential retrieval from an 
indexed-sequential file begins at a 
location or record specified ina SETL 
macro instruction. Input blocks are read 
and each record is presented in sequence in 
response to the GET macro instruction. 

When necessary, ISAM reads those records 
from the overflon area that were displaced 
from the prime data area by added records. 
The track index overflow entry is used to 
dicate when this is necessary. he key 
eld of unblocked records is read along 

th the data field. With blocked records, 
wever, the key of the block (repeated in 
e last record of the block) is not read. 


After record processing has been 
completed, a PUT can be issued to write the 
record back into its original location. 1S 
the file is blocked, the entire block is 
Written back after either all records in 
the block have been processed and a GET is 
issued for the first record in the next 
block or an ESETL macro instruction is 
issued. The PUT macro instruction does t 
have to be issued for records that have not 
been changed; a series of GETS can be 
issued with no intervening PUT. The entire 
block 1S written back into the file if, and 
only ifs a PUT is issued for any record in 
the block. 


Once a SETL macro instruction has been 
issued, GET and PUT are the only [7/0 
operations that can be performed before 


issuing an ESETL macro instruction. For 
example, if a WRITE is to be issued to add 
a record to a file that is being processed 
sequentially, it must be preceded by an 


ESETL. After adding the new record, the 
SETL macro instruction can be reissued, 
specifying the last record processed as the 
new starting point. 


RPS iS supported in 
programs built b I 


y 


Indexed 


channel programs for all index levels and 
for both prime and overflow data. h 
Support is provided for LOAD, ADD, and both 
SEQUENTIAL and RANDOM RETRIEVE modes. 

RPS support is provided in LIOCS by 


dynamically extending the user DTFIS into 
the virtual area within the user's 
Partition, and by linking the user DTFIS to 
an RPS version of the logic module in the 
SVA (Shared Virtual Area). The user must 
provide sufficient dynamically allocatable 
Space in his partition for the RPS DTFIS 
extensions, and sufficient space in the SVA 
to contain the required RPS versions of the 
logic modules. 


The RPS versions of the logic modules in 
the SVA are reenterable and therefore 
Sharable between partitions. If the 
linkage to the original module is already 
coded read-only, the user-Supplied save 
area iS not used. 


The RPS versions of the logic modules in 
the SVA are supersets of the functions 
needed to process the DTFIS being opened. 
Supersetting of RPS and non-RPS logic 
modules is not supported. 


DTFISS in real partitions or partitions 
with insufficient allocatable virtual 
storage are opened without RPS support. If 
either the device or the system does not 
support RPS, the DTFIS is opened without 
RPS support. 


The CCB CCW address and the module 
linkage fields in each DTFIS are modified 
to point to the DTFIS extension and the RPS 
version of the logic module in the SVA. 

Each DTFIS has three RPS indicators set on 
by OPEN. The first Cbyte 65, bit 4) 
indicates that the device containing the 
prime data being accessed is an RPS device; 
the second (byte 65, bit 5) indicates that 
the DTFIS has been extended into partition 


virtual space; the third (byte 65, bit 7) 
Indicates that the device containing the 
index being accessed is an RPS device. 


The RPS DTFIS extension(see Figure 26) 
contains CCW build and work areas necessary 
to construct RPS channel programs. In 
addition, the extension contains: 


e A save area to force reentrancy on all 
imperative macro calls to the 
versions of the logic modules. 

e Information necessary to reestablish the 
original DTFIS at close time. 


e The RPS error exit routine. 


The RPS error exit routine reestablishes 
addressability to the RPS DTFIS extension 
and passes control to the ISAM module. 
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This routine gains control when the uSer 
returns to the ISAM module via the error 
exit path 


The original DTFIS is used for all 
fields except the channel program building 
areas. 


Displace-| | 
ment IBytes| 


144 |CCW build area 
Fe RPS sector arguments 


Contents 


| 

PS work area 

ointer to RPS error exit 

outine 

aved ISMOD register 14 | 

t error exit time | 

aved user register 13 

aved original CCW 
| 
| 


ws) 


ddress 

aved original module 
ddress 

ser register save area 
PS error exit routine 
nused area in DTFIS 
xtension 


ARI eo pe 

OMmm FO NN OW BHD 

OAR OO BMH OM LHwoLlo 
vToOmACYMNsY MMI MS UA 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
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| 
| 
| 
| 
| 
| 


Figure 26. DTFIS Extension for RPS 


Note: For an explanation of the Rotational 
Position Sensing CRPS) feature, refer to 
the appropriate hardware manual for the 
device type being used. 


DIFIS MACRO 


Before an indexed sequential file can be 
processed, it must be defined by the DTFIS 
declarative macro. Some of the fields 
Within the DTFIS table generated from this 
macro instruction are not determined or 
filled in until the file is opened during 
execution of the program. Many of the 
fields in the table are retained with the 
file in the DASD format-2 label. 


In addition to the parameters that 
describe the file to be processed,» the 
DTFIS macro instruction includes certain 
parameters identical to those in the ISMOD 
macro instruction. 


The following five DTF tables are 
erated according to function. They are: 


iQ 


AHH44 0 
TAM a | 


D (see Figure 27) 

ee Figure 28) 

RANDOM (see Figure 31) 
EQNTL (Csee Figure 32) 
ee Figure 33) 


A 
D 
T 
T S 
D s 
he DTF tables for ADD, 

DRTR are divided into the 

at appear in the assembly 
ting. The first part of the DTF table 
common to the ADD, RETRVE and ADDRITIR 
functions. The rest of the table is 
Variable and is generated according to the 
ep eves specified in the DTFIS detail 
entries. 


For a description of the DTFIS header 
entry and detail entries refer to 


VSE/7Advanced Functions Macro Reference. 


Note: The DTFIS may be altered when used by 
‘any of the compilers. For further 
information, refer to the Programmer's 
Guide for the appropriate compiler. 


—EKtaoH OOOOYO 
Vi fo | 


Yves omso 
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lDTF Assembly | dul | | 


Module | ; 
Label IDSECT Label Bytes Bits | Function 
&Filename IJHKCCB foes yvonmans Control Block (CCB). 
16 €10) 0-1 |Not used. 
2 li = COBOL open ignore option. 
3 Not used. 
4G 1 = DTF table address constants relocated by 
OPENR. 

5 Not used. 
6 1 = Data set security. 
7 1 = Wrong block size error during file 


extension. 
17-19 Address of logic module. 
(11-13) 

20 (14) 
21 (15) 


ile type for OPEN/CLOSE (X'24' = LOAD). 
IJHKOPCO ion byte. 

used. 

used. 

Cylinder overflow option. 

used. 

Blocked records Cused by previous 
versions). 

Verify. 

used. 

Two I/O areas present. 


EY SA CY SS a ET 


ha RP ZR YP ZeZZoO nN 
Oo oowv 


ict i rete 


NAW LWNe OS 


Oo 
ier il 


22-28 
(16-10) 


29 (1D) 


ile name. 


SS LG AS SS A SE I EE YT NY NT SER Se 


IJHKPDDV type indicator. 


ay 
WWII AD &F 
WAWWWWm 
a a 


eaeaaeeaeae'’y 
oocoo0oo-] 
r+ Pwumhrodrd 
2e2ee«e<«a «f(D 
Te | | | | 2 
oooofra 


IJHKCCOD 30 (1£E) tatus byte. 

Uncorrectable DASD error (Cexcept WLR 
error). 

WLR error. 

Prime data area full. 

Cylinder index area not large enough to 
reference prime data area. Set on only 
if error detected at SETFL time. 

Master index not large enough to 
reference prime data area. Set on only 
if error detected at SETFL time. 
Duplicate record. 

Sequence error. 

No EOF record written in prime data 


area. 


&Filename.C 


Ree RY KKK KOKO 
il a 


WNe © 


A) 
-_ 
il 


— 
“oui 


JO 


OE A TS a SS SS SS SN EE TE EE SS a SS EE SS Se Ey 
A SS ee ST A A NS ES EE RT ST TS NS SY TS NT NE SE CY EE RT EE ET ET ER EE YY TT A cD RE TT AS aS GS A NT SR yy Se 


eS AT TT CS EY a STR EE A ES I A ST PS A ED Pe A A OS TY CORY GE EY GD OR SA A NS CNT A re A ES A NY A MS OY a 


a OS HES RE CT A sa ET OS NS NT TS A SS “CL 


| 
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| 
| 
| 
| 
| 
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| 
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Figure 27. DTFIS LOAD Table (Part 1 of 5) 
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Figure 2/7. 


DTF Assembly 
Label 


lps 


Fe SE A A a TS Nl TT A A A i a A AN se 


Mod 


IJHKHNDV 


ITJHKNRPD 


IJHKNRSH 


IJHKNRTI 


IJHKFLAG 


ule 
ECT Label 


A TE LE TT A TE a a EE A LE eT IE le SS it yy sh eS ei ig Seay see CSSD 


oot 


Property of IBM 


Bytes 
(1F) 


32 (20) 


33-34 
(21-22) 


35 (23) 


36-37 
(24-25) 


38 (26) 


39 
40 
1 


nN O 
Mm ROP 
Oo Onl 
ww wT 


42 (2A) 


43 (2B) 


DTFIS LOAD Table (Part e of 5) 


Function 
High level index device type indicator. 
1Xx'00" = 2311 
X’O1l" = 231472319 
X'O4*' = 3330 
X'0O8" = 3340 general 
X'09" = 3340 35MB 
X'OA' = 3340 7OMB. 
Relative position of the DSKXTN Clogical 
unit, cell number) table (Cin words). This 
oie is the length of the DTF table divided 
y a 


| 
aaa prime data track in cylinder (HH). 


iFirst prime data record in cylinder (CR). 


Last prime data track in cylinder (CHH). 


es on master index/cylinder index 


record on overflow track (R). 


h 

c 

record on prime data track (R). 

h record on last track index track in 
inder (whether shared or unshared). 

igh record on track index track other than 
ast in cylinder. If only one track index 
rack in cylinder, it is equal to Byte 41. 


dition Code. 
WLR checks requested (for extension). 
First record in file. 
Prime data extent full. 
Master index/cylinder index extent too 
small. 
Prime data upper limit has been 
Increased (for extension). 

= Extension. 

ot used. 


rime data lower limit (MBBCCHH). 
Cylinder index lower limit (MBBCCHH). 
Master index lower limit CMBBCCHH). 


foi fio 


i 


1Switches. 

{Not used. 

1 = RPS type device (data). 
1 = RPS type DTF. 

1 = Master index. 

ij1 = RPS type device Cindex). 
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DTF Assembly | Modu 
Label |DSECT roped 


IJHKLPDR 


Function 


Address of last prime data record 
(MBBCCHHR). 


66-73 
(42-49) 


&Filename.H 


| IJHKLGLN Logical record length. 
| Key length. 
| 
} IJHKBKLN Block length (Clogical record length times 
| number of records). 
| 8 1 Overflow record length (logical record 
| (50- 51) flength +10). 
| IJHKNRCD | cera | Blocking factor (number of logical records). 
| | eon ee ds | Index entry length (Ckey length +10). 
| 86-87 Prime data record length (key length + 
| (56-57) Iphysical record length). 
| 88-89 Overflow record length with key (key length 
{ (58-59) + logical record length + 10). 
| 90-91 Prime data record format length Ckey length 
| (5A-5B) + physical record length + 8). 
92-93 Overflow record format length (key length + 
| (5C-5D) logical record length + 18). 
| eae Key location Cin blocked records). 


This is the end of the common DTF area. The format of the remainder of the table 
is variable and is generated according to the parameters specified in the DTFIS 


macro instruction. 


ES EE i A OE EE YI A ST LE TE ee LS L,Y GY Ll TE I NN EY EY SS i SE Le, A GY A SG Sh A SS SA 
se ES ES TE EE TL Yl EE LS Hl SE SS EG I, A EY ONE SERN NEE 


[ | 

&Filename.S IJHKSBKT ae eo | Seek/Search address area (MBBCCHHR). 
&Filename.P IJHKLGCT Cee eos Logical record counter (for blocking). 

| 106-107 | Number of bytes for high level index. 

| oon 

| (6C-6F) | 

| 112 1Status indicators. 

(70) 0-1 Not use 
2 1= File closed. 
3-5 Not used. 

| 6 1 = Last prime data track full. 

| 7 1 = Last block full. 

| IJHKLTIR 113-117 Last track index normal entry address 

| (71-75) CCCHHR). | 

1 IJHKLCIR 118-122 Last cylinder index entry address (CCHHR). | 

| (76-7A) | 

| IJHKLMIR 1123-127 Last master index entry address (CCHHR). 

| {C7B-7F) | 


Figure 27. DTFIS LOAD Table (Part 3 of 5) 
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&Filename.B 


&Filename.M 
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Figure 27. 


| 
| 


IJHKRDWR 


IJHKADCN 


IJHKBPOS 


IJHKMIXT 


IJHKPDUL 


IJHKLTM1 


IJHKKLM1 


IJHKLLM1 


IJHKTIDR 


IJHKBFDR 


Property of IBM 
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DTFIS LOAD Table (Part 4 of 5) 


CCW build area. See description of SETFL 
macro, phase 1 - $$BSETFL. 

Seek CCW. 

Search ID equal CCN. 


ee CCW. 


Read/Write CCW. 
Search ID equal CCW. 
TIC CCW. 

Verify CCW. 


eae of IOAREAL. 


Address of data in WORKL. (FIXBLK = address 
of WORKL; FIXUNB = address of WORKL + key) 
Address of key i WORKL. (FIXBLK = address 
of WORKL + KEYLOC - 1; FIXUNB = address of 
WORKL. 9) 

Block position indicator Caddress of logical 
jecee in IOAREAL). 

Master index, extension indicator. 

Not used. 

1 = Extending file, O = Creating file. 


Not used. 


1 = Master index being used, 0 = No master 
bees being used. 

as index upper limit (CCHH). 

aceon index upper limit (CCHH). 

| 

]Prime data upper limit Cold upper limit, if 
fextension) (MBBCCHH). 

|Prime data new upper limit (for extension) 
eee 

eee prime data track in cylinder - 1. 


}Logical record length - l. 


Address of track index dummy record (CHR). 


Address of record be 


fore first prime data 
record in cylinder (CHR). 
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Numbers 
Figure e/7. 
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DTF Assembly | Module { 
| Label |DSECT Label Bytes Bits Function | 
[&Filename IJHCCCB O~-15 CCB. | 
{ | (O-F) | 
| | 16 €10) {0-1 Not used. | 
| | 2 1 = COBOL open ignore option. } 
| | 3 1 = Track hold specified. | 
| | 4 1 = DTF table address constants relocated by| 
OPENR. | 
| | 5 Not used. | 
| 6 1 = Data set security. 
| 7 1 = ed Size error during addition | 
o file. 
| | tas Logic module address. | 
| | 
| | 20 (14) File type for OPEN/CLOSE (X'25" = ADD). | 
| | IJHCOPT 21 (15) Option Bytes | 
| | 0 |Not used | 
| 1 1 = Prime data in core. | 
| 2 1 = Cylinder overflow. | 
| 3 1 = Cylinder index in core. | 
| | 4 1 = Blocked records. | 
| | r= ‘i : cee | 
= ot used. 
| | 
| 22-28 DTF file name. | 
| (16-1C) | 
| | IJHCPDDV 29 (CID) {Prime data device type indicator. | 
| X'O00" = 2311 | 
| | yro4' = $330 | 
| X'O8* = 3340 general | 
| | | | X'DAY = 3340 7OMB. | 
| | | | 
[&Filename.C | ITJHCSTBY 30 €1E) Status byte | 
| | 0 1 = Uncorrectable DASD error (except WLR). | 
| | 1 1 = WLR error. 
| 2 1 = EOF (sequential). | 
| | 3 1 = No record found. | 
| | | 4 1 = Illegal ID specified. | 
| | 5 1 = Duplicate record sensed. 
| | 6 1 = Overflow area full. 
| | 7 1 = Record retrieved from overflow area. | 
| IJHCHNDV 31 (1F) cieee. ava index device type. | 
| ) ERED E Gildzznes | 
| \X'08" = 3340 general | 
| | | \X'O9" = 3340 35MB | 
| | | IX"OA’ = 3340 70MB. 
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Numbers in parentheses are displacements in e 


Figure 28. DTFIS ADD Table (Part 1 of 6) 
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Licensed Program - Property of IBM 


[DFT Assembler| Module | | ; ; | 
Label |DSECT Label | Bytes Bits Function 


IJHCPNT 32 (20) Relative position of the DSKXTIN (Clogical 
unit, cell number) table Cin words). This 
oe is the length of the DTF table divided 
y : 


First prime data record in cylinder (CHHR). 


Last prime data track in cylinder (HH). 


High record number on master index/ 
cylinder index track (R). 


<= 
a 
ro 


— 
oO 
o~ 
N 
o 
~~ 


| 
| 
| 
| | 
| 
| 
| | 
| 
| 
| | | | 
| | IJHCPDH 39 (27) High record number on prime data track (R). | 
| | record number on overflow track (R). | 
| | IJHCSTH G1 (29) | High record number on shared track (CR). | 
| |} IJHCTIH G2 (2A) High record number on track index (TI) | 
| | | track (€(R). | 
| | IJHCRTR 43 (2B) | {Retrieval byte. | 
| | 0 |1 = WORKR area specified. | 
| | bcd i1 = WORKS area specified. 
| | 2 }Overflow switch. | 
| 3 k = Read. | 
| | 4G Not used. | 
| | 5 1 = Output. | 
| 6 1 = Write key. | 
| | 7 1 = PUT macro issued. | 
| | 44-50 | Prime data lower Limit (MBBCCHH). | 
| | (2C-32) | | 
| | IJHCCIS 51-57 Cylinder index lower limit (MBBCCHH). 
| (33-39) | | 
| | IJHCMIS 58-64 Master index lower Limit (MBBCCHH). | 
| | (3A-40) | 
| | IJHCILN | 65 (41) | Switches. | 
| | | 0 1 = From WAITF routine. | 
| | 1 1 = WAITF seek check bit. 
| | | 2-3 Not used. | 
| | 4 1 = RPS type device (data). | 
| 5 {1 = RPS type DTF. | 
| | 6 EF = Master index. | 
| | 7 1 = RPS type device Cindex). | 
|\&Filename.H | IJHCCLPA 66-73 aes prime data record address (MBBCCHHR). 
| | | €42-49) | | 
| | IJHCRESZ | 74-75 {Logical record length CRECSIZE). | 
| | (4A-4B) | | 
{ | IJHCKYSZ | 76-77 Key length (KEYLEN). | 
| | | €4C-4D) | 
| | IJHCBLSZ ! 78-79 Block size (logical record length times I 
| | (G4E-GF ) Inumber of records). | 


Figure 28. DTFIS ADD Table (Part 2 of 6) 
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Licensed Program - Property of IBM 


DFT Assembler Module 
Label DSECT Label 


IJECRL1IO 


Bytes Function 


80-81 
(50-51) 


Ore length Clogical record 


{ | 
| | 
[ | 
| | | 
| | IJHCBFAC 83 i ctor (number of logical records | 
| | in block RECDS)). | 
] Index ent length (key length + 10). | 
| | (54- 55) | 
| | IJHCABCD 86-87 Prime data record length (key length plus | 
| | (56-57) physical record length (block size) ) | 
| | 88-89 Overflow record length plus key (key length | 
| | | (58-59) + logical record length + 10). | 
| |] IJHCCMAX | 0-91 Prime data record format length (key length | 
| | (5A-5B) + block size + 8). | 
{ | -93 Overflow record format length (key length + | 
| | (5C-5D) logical record length #+ 18). | 
| | IJHCKYLC (ee ees oe location (CKEYLOC) for blocked records. | 
{ 96-97 Constant = 5. | 
| (60-61) | 
| 98-99 Constant = 10. | 
{ { (62-63) | 

| IJHCATB2 | 100-101 Displacement of Part 2 of the DTFIS table [ 
| | (64-65) from start of Part Il. | 
| IJHCATB3 | 102-103 | Displacement of Part 3 of the DTFIS table | 
| | (66-67) from start of Part l. | 
oe ees | IJHCSADR eee | Seek/search address area (MBBCCHHRFP). | 
[ | | | 
\&Filename.W IJHCBKCT 114-123 Random/sequential retrieval work area. | 
| | (72-7B) | 
|&Filename.P | IJHACPRC 124-127 Prime data record count. | 
| | (7C-7F) | 
| {| IJHACSTI | 128 Status indicators. | 
| | (80) 0-1 Not used. | 
| | | | 2 1 = File Closed. | 
| 3-5 Not used. | 
| { 6 1 = Last prime data track full. | 
| | 7 1 = Block complete. | 
| | IJHACLTA 129-133 ease track index normal entry address | 
| | (81-85) (CCCHHR). | 
| | IJHACLCA 134-138 Last cylinder index entry address (CCHHR). | 
| | (86-8A) | 
| | IJHACLMA 139-143 Last master index entry address (CCHHR). | 
| | (8B-8F) | 
| IJHACLOA 144-151 Last independent overflow record address | 
| | {(€90-97) | (MBBCCHHR). | 


Figure 28. DTFIS ADD Table (Part 3 of 6) 
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DFT Assembler | 


Label 


&Filename.I 


&Filename.A 


&Filename.O 


LE SE A TO LT LE TT ST LE ES TE le A SE TY YTS LTE I RE Se rer ene 


Numbers 


Figure 28. 


EE Ce TE NS ST RT IAL OE ES LY TG EY A RS OE I I NS NS ES A A SS GY SY SS ES NE hh LY A AY TERE ERAN A SEE EN A SY EY 


Module 


|DSECT Label 


IJHACOTC 


IJHACOFC 


IJHACORC 


IJHACOLL 


IJHACOUP 


IJHAHRAA 


IJHADLNK 


IJHAARAD 


IJHACUSE 


IJHADKEY 


IJHAKLN8& 


on an ed ae aed “ni oe Fat aed on pt 

WY PY PO OUI WUT OUI OUI 
! i tf 

Oe Pe PR PR OY OF woe 


On ON UN Mma OW PH ON 
t 


AN AAD ARE mR mR OM 
ON ON OF OF De We 
T1O WO NO wo Thao Wo 
| wi i a OD ww Ut Nad nt | 


in parentheses are displacements 
DTFIS ADD Table (Part 4 of 6) 


Licensed Program -— 


Property of IBM 


Function 


Number of independent overflow tracks. 


CT 


Number of full cylinder overflow areas. 


Overflow record count. 

tee overflow area lower limit 
as overflow area upper limit 
ename.D) 


i 
nder overflow control record (COCR). 


Filename. D+t8) 
eal: track 


&Filename.D+16) 


( - Address of work area 
urrent track 


index overflow entry count 


AC&Filename.D+24) - Address of work area 
[current prime data record count field. 


AC&Filename.D+32) - Address of work area 
current overflow record count field. 


AC&Filename.D+40) - Address of work area 
track index normal entry data field. 


AC&Filename.D+50) ~- Address of work area 
current overflow record linkage field. 


| AC RIOAREAL) - Address of IOAREAL, the I/0 


larea used for adding records to a file. 
laceworkL) - Address of WORKL> work area 


- Address of work area for 


- Address of work area for 
index normal entry count 


for 


for 


for 


for 


for 


Icontaining user data records to be added to 


he file. 

- Address of the ADD key 
REAL+8) 
Es 
REAL+8+&KEYLEN) 
in IOAREAL. 


- Address of key position 


- Address of data 


tion 


in hexadecimal notation. 
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in 


Sy a ES SE Ey AY A NS ST SE ES EE SS SS RS Rl A a Sa NY SSE QI SOAS Asn RS AR SS ET <I 


Licensed Program - Property of IBM 


DTF Assembly | Module 
Label [DSECT Label 


IJHCASAD 


Function 


- Address of the seek/ 


AC&Filename.S+t+3) 
search address areat3. 


&Filename.2 


| 
| 0 {1 = Seek check indicated. 
i 1-5 |Not used. 
| | 6 1 = Over/under seek has occurred. 
| 7 1 = An error has been found, but a seek 
check is indicated. 
5-7 AC&Filename.W) -~- Address of random/ 
(5-7) sequential retrieval work area. 


The following information is generated if the cylinder index in core option is 
Specified. 


EE NE EY LE CE ce TS eH AEG a ig SN 


| 

| 

| 

| 

| 

| 

| 

| 

| 

i 

| 

| 

| IJHCORST { 12-15 AC&INDAREA) - Starting address of main | 

| { COC-OF) storage area specified for cylinder index. | 

16-17 AL2C(&INDSIZE) - Number of bytes in main [ 

| (10-11) storage available for cylinder index. | 

| 18-25 Next cylinder index entry to be read | 

(12-19) (MBBCCHHR)D. | 

| 26-30 Last cylinder index entry (CCHHR). | 

| (1A-1€E) { | 

| | IJHCORBT 31C1F) Core index byte. ; : 
| | 0 1 = First time through Br-transient;, 

| | | SSBINDEX. | 

| | 1 1 = End of cylinder index reached. | 

| | 2 1 = Index skip option specified. | 

| { 3 1 = Suppress in-core option and read | 

| | cylinder index. 

| | 4-7 |Not used. | 

| | IJHCORKY | 32-35 leaiceak to key (stored by module). | 

| | | €1D-23) | | 

[The following information is generated if the prime data in core add function is | 

aeeT ee This information is aligned on a double word boundary. | 

| IJHPSIZE | 36-37 1Size of IQAREAL. | 

| | 1 €24-25) | | 

| | IJHPMAX | 38-39 | [Maximum number of prime data records in main| 

| | | €26-27) storage. | 

| | IJHPDSP1l | 40-43 | Address of write CCWs. | 

| | (28-28) | 

{ | IJHPDSP2 | 44-47 | [nace of read CCWs. | 

| | (2C-2F) | | 

| | IJHPSW | 48(30) | [Switch byte. | 

| 0 1 = EOF. | 

| | 1-7 |Not used. | 

| | | 49(31) Reserved. | 

| I JHDCWRK | Work field for I/O module. | 


50-51 

(32-33) | 
A ee a ea ee a ee 
Numbers in parentheses are displacements in hexadecimal notation. 
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DTF Assembly 


Label 


&Filename.B 


Licensed Program —- Property of IBM 


Function 


CCW X'O7', &Filename.Stl, X'40', 6 - Long 


seek CCW with command chaining. 


two. There is one entry per extent. 
“ Location of the end-of-table 


| | 
| | 
| | 
| | | 
| IJHCCCW Channel program build area. See Figures | 
[ 37-58 for a description of the channel | 
| | program builder. | 
|\&Filename.D | IJHACOCR 128-135 Cylinder overflow control record (COCR). | 
| | (80-87) | 
| | IJHACTNA 1136-143 Current track index normal entry count field| 
| | peers? address. | 
| | IJHACTOA 144-151 Current track index overflow entry count | 
| | (90-97) field address. | 
| | IJHACRID 152-159 Current prime data record count field | 
| (98-9F) address. | 
| | IJHACFID 160-167 Current overflow record count field ACES 
| | (A0-A7) | | 
| IJHACTIN 168-177 Track index normal entry data field. | 
| (A8-B1l) | 
| | IJHACLNK 178-187 Current overflow record sequence link field. | 
| | (B2-BB) | 
| } IJHACTIA 188-197 Current track index overflow entry data 
| | eens field. | 
| {| IJHAGATE [198 X'GO1" -—- Add to EOF. © | 
| j (C6) |\X"02'°' - Add to independent overflow area. | 
| | 199-201 Overflow control bytes (CCH). | 
| | pom ere | 
| | IJHAOCOH een cee High HR on overflow track. See Figure 29. | 
| { opeeon, Volume upper limit for prime data records | 
| | (CC-D3) (MBBCCHHR) See Figure 30. | 
| | IJHAICOM 212-217 CLC OC&KEYLEN,13),0(6) - Unblocked | 
| (D4-D9) CLC OC&KEYLEN,13),&KEYLOC-1(6) - Blocked | 
| | | aoa CLC for key | 
| IJHAISKY | 218-223 MVC OC&KEYLEN,13),00€012) - Unblocked | 
| | (DA-DF) ee OC&KEYLEN,13),&KEYLOC-1(12) - Blocked | 
| potaney MVC for key. | 
&Filename.E | 224-2273 | ee entry in DSKXTN table (Clogical unit, | 
CEQ-E3) cell number). { 
| 232-2357 | paneer - End of DSKXTN table. | 
| | ae | 
|}&Filename.K [ ieee” Key area for ADD only. Number of bytes | 
| | (EC-end) depends on key length,» KEYLEN. | 
i Each entry in the DSKXTN table is four bytes long. The minimum number of entries is | 
| | 


indicator depends on length of DSKXTN table. 
in parentheses are displacements 


DTFIS ADD Table (Part 6 of 6) 


Numbers in hexadecimal notation. 


Figure 28. 
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Licensed Program —- Property of IBM 


| 2311 231472319 | 


R = Number of records that fit 
on an overfow track 


R = Number of records that fit 
on an overflow track 


| M = Extent sequence number = Extent sequence number | 
| BB = 00 = 00 | 
| C = 0 C = 0 | 
| C = 199 C = 199 | 
| H = Q H = 0 | 
| H = 9 -~ CYLOFL (number of tracks H = 19 - CYLOFL Cnumber of tracks | 
| reserved for cylinder overflow) reserved for cylinder overflow) | 
: | 


—— 


c 


| 3330 3340 (€35MB) 3340 (€70MB) | 
| M = Extent sequence number Extent sequence number = Extent sequence number | 
fee = 0 = Q | 
ee = 403 = 695 | 
| H = 0 = 0 | 
| H = 18 -~ CYLOFL Cnumber of H = 11 -—- CYLOFL (number of H = 11 -— CYLOFL Cnumber of | 
| tracks reserved for tracks reserved for tracks reserved for | 
| cylinder overflow) cylinder overflow) cylinder overflow) | 
|} R = Number of records that | R = Number of records that R = Number of records that | 
| fit on overflow track fit on overflow track | fit on overflow track | 


Figure 29. Overflow Area Upper Limits (MBBCCHHR) 


231172314/72319/73330/3340 


| 

| M = Extent sequence number 

ee = 00 

lCC = 199 for 231172314/2319 

= 403 for 3330 | 
| = 347 for 3340 (35MB) | 
| = 695 for 3340 (70MB) 

| H = 0 

| H = Last prime data track in cylinder 

| R = Last record on current track 


Figure 30. End of Volume Limits for Prime Data Area (MBBCCHHR) 
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| 

| 

[&Filename IJHCCCB 0-15 

| (O-F) 

| | 16 €10) 

| | 

| | | 

| 

| | 

| 

| | 17-19 

| | | (11-13) 

| | | 20 (14) 

| | IJHCOPT 21 (15) 

| 

| 

| 

| | 

: | 

| | 22-28 
(16-1C) 

| | IJHCPDDV 29 (1D) 

| 

| | 

| | 

| 

Pee Lanes’ | IJHCSTBY 30 (1E) 

| 

| 

| | 

| | 

| 

| 

! | IJHCHNDV 31 C1F) 

| 

| | 

| | 

| 

| 

| IJHCPNT 32 (20) 

| 

| 
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ignore option. 


le address constants relocated by 


in format-l label 


Cylinder overflow option. | 
in core option. 


| DTF Assembly | Module | ; | ; | 
Label DSECT Label Bytes Bits Function 


RETRVE). 


(except WLR 


Licensed Program - Property of IBM 


OFT Ape cee tee: | | 
abel Bytes Function 
ree First prime data record in cylinder (CHHR). 
36-37 Last prime data track in cylinder (HH). 
$8 (58) High record number on master index/cylinder 


index track (CR). 


EE OE eT YY YE TE SU ED NE ND GY ah SR SY SN 


| 
| 
| 
| | 
| | 
| 
: 
| 
| IJHCPDH 39 (27) High record number on prime data track (R). | 
40 (28) High record number on overflow track (CR). | 
IJHCSTH G1 (29) High record number on shared track (CR). | 
IJHCTIH 42 (2A) | High record number on track index track ee 
IJHCRTR 43 (2B) | Retrieval byte. [ 
0 1 = WORKR specified. | 
] 1 = WORKS specified. | 
| 2 Overflow switch | 
3 1 = Read key 
| G Not used. | 
{ 5 it = Qutput | 
| | 6 1 = Write key. | 
| | | 7 1 = PUT macro issued. | 
| | 44-50 Prime data lower limit (MBBCCHH). | 
| (2C-32) | 
| IJHCCIS 51-57 levainaer index lower limit (MBBCCHH). | 
| (33-39) | | 
| IJHCMIS 58-64 | iMaster index lower limit (CMBBCCHH). | 
| (34-40) | | 
| IJHCILN 65 (41) Switches. | 
| 0 1 = From WAITF routine. [ 
| 1 1 = Seek check from WAITF. | 
| 2 1 = Data track held. | 
3 1 = Index track held. | 
| | 4 [1 = RPS type device (data). | : 
| { 5 1 = RPS type DTF. | 
| | 6 1 = Master index. | 
| | 7 1 = RPS type device Cindex). | 
[ IJHCCLPA 66-73 Last prime data record address (MBBCCHHR). | 
| | (42-49) | 
| IJHCRES2Z 74-75 Logical record length. | 
| | (4A-G4B) | ) 
| | IJHCKYSZ 76-77 Key length. | 
| | (4C-G4D) | 
[ | IJHCBLSZ 78-793 Block size Clogical record length times } 
| (4E-GF) paneer of records). | 
| IJHCRL10 | 80-81 | |\Overflow record length (logical record { 
| | f ¢€50-51) llength + 10). | 


US Ee ————————e 
Figure 31. DTFIS RETRVE, RANDOM Table (Part 2 of 6) 
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Licensed Program - Property of IBM 


DFT Assembler | Module 
Label IDSECT Label 


IJHCBFAC 


Function 


Blocking factor. 


| 

| | 
| 
| | | 84-85 Index entry length (key length + 10). | 
| | | (€54-55) | 
| | IJHCABCD | 86-87 Prime data record length (key length + | 
| | (56-57) physical record length). | 
| | 88-89 Overflow record length gia key (key length | 
| | (58-59) + logical record length + 10). | 
| 1 IJHCCMAX 90-91 Prime data record format length (key length | 
| | (5A-5B) \* physical record length + 8). | 
| | 92-93 | Overflow record format ueneeh (key length + | 
| | | (5C-5D) | logical record length + 1 | 
| | IJHCKYLC 1 94- | Key location (blocked records). | 
| | | (5E-5F) | | 
| 96-97 Constant = 5. | 
| (60-61) | 
| | 98-99 Constant = 10. | 
| | (62-63) | 
| | IJHCATB2 100-101 Displacement of Part 2 of the DTFIS table | 
| | (64-65) from Part 1. ! 
| | IJHCATB3 102-103 Displacement of Part 3 of the DTFIS table | 
| | (66-67) from Part 1. | 
ee pveamel: | IJHCSADR foe Seek/search address area (MBBCCHHRFP). | 
| | | | 
Sp apenanen IJHCBCKT pase ey Random/sequential retrieval work area. 


Figure 3l, DTFIS RETRVE, RANDOM Table (Part 3 of 6) 
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Licensed Program - 


DTF Assembly {| Module 
Label {[DSECT Label 


&Filename.2 IJHCASAD 


IJHSIOAR 
IJHCRARA 
IJHCRKEY 
IJHCRWOR 
IJHSDB1 

IJHSLIOR 


IJHSLMIT 
IJHSINIT 


&Filename.H IJHSCADR 
IJHSCOVFEF 
IJHSRCNT 


IJHSTICU 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
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Function 


Seek check 
used. 
Over/under seek has occurred. 

An error has been founds but a seek 
check is indicated. 


Address of 
area. 


Address of 


indicated. 


random/sequential retrieval work 
IOAREAS. 


Address of IOAREAR. 


Address of KEYARG. 


Address of WORKR. 


sequential I/O area address. 


NO-OP instruction, or L IOREG,*¥-4 


te 

OREG was specified. 
X'GO' = 
Xx'OO' = 


= First prime data record on shared track. 


Verify. 
Blocked. 


" = No verify, 
= Unblocked, 


o G&G 
oo 2 


limit for sequential retrieval 


-~p OO 
c 
T | 
<< = 
1) 
= 
ct 


Blocked records. 
Overflow record. 
Unblocked records. 


= 2311, 2314, or 2319; 
= 3330, 3340. 
ial values for sequential retrieval. 


aex<x< Crt nc wD KK OK 


oe 


3 <« « 


ae address for sequential 


yevertlee DASD address for sequential 
] 


ia record counter. 


ee i A EE A A YE LE A A A ES A SY NG TU SA YS EE SEG YS 


arene track index entry for sequential 


eee ee eee er 
RANDOM Table (Part 4 of 6) 
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c 


LU 


c 


Licensed Frogram —- Property of IBM 


Function 


68 
C4 


69 
-45) 


Number of records tagged for deletion. 


G 


Reserved. 


| | 
| | 
| | | 
| IJHRREGS 70-71 Load IOREG for random retrieval. 
| €46-47) | 

eetonsaace IJHRIDSV | 72-73 DASD address save area (MBBCCHHR). | 
| | (€48-GF) | 
[ IJHRADSV 80-83 Record pointer within I/O area for write | 
| | (50-53) operation. | 
etesnens I JHROVCN 84-87 Nonfirst overflow record count. | 
| (54-57) | 
l\The following information is generated when the cylinder index in core option is [ 
eee | 
| IJHCORST 92-95 AC&INDAREA) - Starting address of main | 
| | (5C-5F) Storage area specified for cylinder index. | 
| 96-97 AL2C&INDSIZE) - Number of bytes in main | 
| (60-61) storage available for cylinder index. | 
| 98-105 Next cylinder index entry to be read | 
| | (62-69) (MBBCCHHR). (Initialized by $$BINDEX to | 
| cylinder index starting address.) | 
[ 106-110 tea cylinder index entry. | 
| (6A-6E) | 
{ (6F) 0 F = First time through transient. | 
| | 1 1 = End of index reached. | 
| 2 1 = Index skip option. | 
| | | 3-7 Not used. | 
| IJHCORKY Pointer to key (stored by the module). | 
| 
| [ 
| 


Figure 31. DTFIS RETRVE, RANDOM Table (Part 5 of 6) 


Function 


X'07',&Filename.S+1,X"40',6 - Long seek CCW 
with command chaining. 


IJHCCCW 8-63 Area to build CCW string. See Figures 61-67 
for a description of the channel program 
| builder for random retrieval. 
&Filename.E | er [First se in DSKXTN table (logical unit, 
= ce number). 

72-754 Rea End of DSKXTN table. 

(48-GB) | | 
1The length of one entry is the four bytes shown here. The minimum number of entries 

is 2. There iS one entry per extent. 


ee GE SE 


l?The location of the end-of-table indicator depends on length of DSKXTN table. 
Numbers in parentheses are displacements in hexadecimal notation. 
Figure 31. DTFIS RETRVE, RANDOM Table (Part 6 of 6) 
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DTF Assembly | Module 
Label [DSECT Label 


IJHCCCB 


Function 
Command Control Block (CCB). 


&Filename 


Oo 


ool Wt ict 


| 
| 
| 
| 
| 
| 
| 


s 
open. ignore option. 

hold specified. 

ble address constants relocated by 


mMOOANHD. 
OvaAtFoOmuN 


n sequential retrieve. 

Data set security. 

Different block size in format-1 label 
than in DTFIS. 

Address of logic module. 


File type for OPEN/CLOSE (X'26' = RETRVE). 


JIA Pte © 
— pp 


| 
| 
| 
| 
| 
| 
| 


IJHCOPT 


amis 


yte. 


‘fD 


nder overflow option. ; 
nder index in core option. 
hy records. 


| 
| 
| 
| 
| 
| 
| 
| 


os 


fou on We cee 


b 
d. 
me data in core. 
i 
i 
c 
i 
R 


Me OONOVCA 
One“ BUD 


i 
li 
1 
0 
r 
A EAS just used, O = IOQAREA2 just 
used. 


Two 170 areas present. 


NJ ANRWNFO 


ile name (CDTF name). 


IJHCPDDV 


a 


aeaaa «a3 


on Wn 0 it ab 


we KKK MK: 


IJHCSTBY tus byte. 
Uncorrectable DASD error (Cexcept WLR 
error) 
WLR error. 
EOF (sequential). 
No record found. 
Tllegal ID specified. 
Duplicate record sensed. 
Overflow area full. 
Record retrieved from overflow area. 


&Filename.C 


3 


NAUMAN 


IJHCHNDV 


< 
_— 


| | | 


device type. 
1 
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| 
| 
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ee 


oOoo000o 
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Figure 32. DTFIS RETRVE, SEQNTL Table (Part 1 of 6) 
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Function 


Relative position of the DSKXTN Clogical 
unit, cell number) table Cin_words). This 

vane is the length of the DTF table divided 
y : 


DFT een Module 
Label DSECT Label 


IJHCPNT 


| | 
| | 
| | 
| | 
| | | 
| Eee | ey prime data record in cylinder (CHHR). | 
| pO ties | Last prime data track in cylinder (CHH). | 
| 38 (26) High record number on master index/cylinder | 
| index track (CR). | 
| I JHCPDH 39 (27) High record number on prime data track (R). | 
| 40 (28) High record number on overflow track (CR). | 
| | I JHCSTH G1 (29) High record number on shared track (CR). | 
| | IJHCTIH G2 (2A) [High record number on track index track Stee 
| | IJHCRTR 1 43 (2B) Retrieval byte. 
| 0 1 = WORKR specified 
| 1 1 = WORKS specified | 
| 2 Overflow switch | 
| 3 1 = Read key. | 
| G ki = First record being processed Cafter | 
| issuing SETL macro | 
| 5 1 = Output. | 
| 6 1 = Write key. | 
| 7 1 = PUT macro issued. | 
| 44-50 Pear data lower limit (MBBCCHH). | 
| (20-32) | 
[ IJHCCIS 51-57 Cylinder index lower limit (MBBCCHH). | 
| (33-39) | 
| IJHCMIS 58-64 [Master index lower limit (MBBCCHH). | 
| (3A-40) 
| IJHCILN 65 (41) Switches. | 
0 1 = From WAITF routine. | 
1 11 = WAITF seek check bit. | 
| | 2-3 Not used. | 
| | G 1 = RPS type device (data) | 
| | 5 1 = RPS type | 
6 l1 = Master index. | 
| | 7 1 = :.PS type device Cindex). | 
| | IJHCCLPA 66-73 Last prime data record address (MBBCCHHR). 
| (42-49) | 
| | IJHCRESZ 74-75 Logical record length. | 
| (4A-4B) | 
| IJHCKYSZ 76-77 Key length. | 
(4C-4D) | 
| IJHCBLSZ 78-79 Block size Clogical record length times | 
| | (€4E-GF) number of records | 


Figure 32. DTFIS RETRVE, SEQNTL Table (Part 2 of 6) 
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DFT Assembler Module 
Label DSECT Label 


Bytes 


| 

| 

| IJHCRL1O 80-81 

| | [| ¢€50-51) 

| | IJHCBFAC 82-83 

| (52-53) 

| | 84-85 

| | (54-55) 

| | IJHCABCD 86-87 

| (56-57) 

| | 88-89 

| | (58-59) 

| | IJHCCMAX 90-91 

| | | (5A-5B) 

| | 92-93 

| | (€5C-5D) 

| | IJHCKYLC 94-95 

| | (5E-SF) 

| | | 96-97 

| (60-61) 

| | | 98-99 

| | | (62-63) 

| IJHCATB2 {100-101 

| jones 

| IJHCATB3 iteae es 

| | pOe= er? 

[&8Filename.S | IJHCSADR 1104-113 

| | beget) 

[&Filename.W [| IJHCBCKT er 
| (72-7B) 


Figure 32. DTFIS RETRVE, 


| 


{ 
[Bits 


Function 


length + 10). 


[Blocking factor. 


Index entry length (key length + 10). 


Prime data record length (key length 
physical record length) 
|Qverflow record length with ay (key 
+ logical record length + l 
Prime data record format le en Ckey 
+ physical record length + 


x 2 a 


0 
n 
8 
Gverflow record format lengt 
logical record length + 18). 


I\Key location (blocked records). 


| 
emutenk = 5. 


Constant 10. 


i 
rom Part 


rom Part 


SEQNTL Table (Part 3 of 6) 
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Overflow record length (Clogical record 


(key length + 


ra apeacoment of Part 2 of the DTFIS table 
Palit Sha NA of Part 3 of the DTFIS table 
S 


eek/search address area (MBBCCHHRFP). 


+ 


length 


length 


ES LE EY YY SE EY HY EY I RT GY A SAL SN A YES SN 


4 


OO NE TS A i A HS SY TT ES SE ES ST A PE SY SG —— SR SSE re 


DTF Assembly 
Label 


&Filename.2 


&Filename.H 


! 
: 
| 
| 
: 


| 


Module 


IJHCASAD 


IJHSIOAR 
IJHCRARA 
IJHCRKEY 
IJHCRWOR 
IJHSDB1 

IHJSLIOR 


IJHSLMIT 


IJHSINIT 


IJHSCADR 
IJHSCOVEF 
IJHSRCNT 


IJHSTICU 


DSECT Label Bytes 


| Oo | + | © | it oO | i | 
| w In In [= TR fe i | 
—— fen FN el lUlilClCULOR ff! 
msl to ~J Ww wr 

— ss wd ea 


w I 

lowe 
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~ ON 
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5 
( 
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( 
2 
C 
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1 
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1 
vA 
1 
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1 
2 
3 
vA 
5 
2 
0 
2 


re AGW Ww Ww PAR PAN ran o~ j= on 


i 


Oo | 
Ne 
*) 
—~ 


wl p> 
ie 


wT 
ed 


> | oO | OQ | 

In [NW [uw 
~J 
at 


nA AO el AD ALAD 
— 
al 


BR DD WH WH NWP 
AN DU WW Win NA 
mal 
ed 


1 oN 
W 
—~ 


nN | 


Licensed Program - Property of IBM 


Function 


Address of seek/search address area + 3. 


1 = Seek check indicated. 

Not used. 

1 = Over/under seek has occurred. 
1 = An error has been found, but a seek 
check is indicated. 

Address of random/sequential retrieval work 
larea. 


| 
|\Address of IOAREAS. 


Address of IOAREA2. 

Address of KEYARG. 

adawees of WORKR. 

I/O area address. 
L IOREG,*-4 - Load IOREG if IQREG was 


or a 4-byte NO-OP instruction. 
X‘'GO' = Verify. 


specified, 


X'00' = No verify, 


IX'O08' = Unblocked records, X'0O0' = Blocked 
records. 

R = First prime data record on shared track. 

Upper limit for sequential retrieval 

CCCHHR). ° 

H'O" = Blocked records, 

IH'2" = Overflow record, 

Bees = Unblocked records. 

IX'C7" = 2311, 2314, or 23193 

X'FF' = 3330, 3340. 

Initial values for sequential (CCCHHR). 


Current DASD a 


ddress for sequential 
retrieval (MBBCCHHR). 
W 


Current overflow DASD address (MBBCCHHR). 


| 
Current sequential 
| 


pos vengrat record counter. 


Current track index entry CHR). 


SS EY eT SE NT I A TT LL TY CS TS AY a i TS i, SE SS TE TS SR SSL eS: SRW tS SN AR sitihiniy 


SS ee eee ee ee ee 


Figure 32. 
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SEQNTL Table (Part 4 of 6) 
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DTF Assembly 
| Label t Bits Function | 
ene | oo ; Number of records tagged for deletion. | 
| | | 
| | | 70-75 For boundary alignment. | 
| | | (46-4B) | 
| | 76-91 ee Ser ue | 
| (4C-5B) | | 


——— a ee ee eee 
Figure 32. DTFIS RETRVE, SEQNTL Table, (Part 5 of 6) 


DTF Assembly | 


Label Bits | Function 


X'O7',&Filename.St1, X‘'40',6 - Long seek CCW 
[with command chaining. 


Area to build CCW string. See Figures 68-75 
for a description of the channel progrem 
builder for sequential retrieval. 


First entry in DSKXTN table Clogical unit, 
{cell number). 


Jaxe Fe’ - End of DSKXTN table. 


&Filename.B 


IJHCCCW 


Sey AG Aes Sy Ee ee A 


1The length of one entry is the four bytes shown here. The minimum number of entries 
is 2. There is one entry per extent. 


FS HS ES ES SE Me 


| 
| 
| 
| 
[ 
| 
| 
| 
eee homme 
| 
| 
| 
| 
| 
| 
| 
[ 


“The location of the end-of-table indicator depends on length of DSKXTN table. 
Number in parentheses are displacements in hexadecimal notation. 
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DTF Assembly 
abe 


&Filename 


&Filename.C 


EE YY TS SY NE A I NLL A NE SCY SEE NY AR Sy YY EG YH 


| | F 


Module 
DSECT Label 


IJHCCCB 


IJHCOPT 


IJHCPDDV 


IJHCSTBY 


IJHCHNDV 


| 
| 
| 
| 
| 


ot et) 
HO 


“Au BGAN OS 


“SN AMNDWNEO 


NAMB ANS 
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Function 


-) 
‘o) 
ow 


Oo 


(ow WW 


u 
pen ignore option. 

old option specified. 
abl 
h. ; 
set security. 


— fT] i 
ee) 

Te | ie 

ZSOuUNooTnANos* 

See vpDoaVyomuN 


PES LS 


to file. 


Logic module address. 


File type for OPEN/CLOSE (X'27" = ADDRTR). 


Option byte. 
re) used. 
Prime data in core. 
Cylinder overflow. 
Cylinder index in core. 
Blocked records. 
Verify. 
ae ae just used, O = JOAREA2 just 
used. 
Two I/O areas present. 


cow | —_ i pe pe pe 


=| 
“TI 


file name. 


uu 
a | 
wy 


ou tn it tt tt 


wy 


type indicator. 
9 


a <a 2 a « 33 
oOooooon 
PwuoMOhreo 


aw 2 a « 2 


cr 
runing >< 6 OK OR DK OK 
cr 


DAOONHZMECS 
vee crO Oro in 


Oe ee ee ee er 2 ee @ | 


byte. 


R error. 
F (sequential). 
record found. 
legal ID specified. 
plicate record sensed. 
erflow area full. 
ord retrieved from overflow area. 


= RR RRR pee 


att 


> «>< >K 0K >KI0 


e 


aavzqe a « «ZT 


oooooon 
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Figure 33. DTFIS ADDRTR Table (Part 1 of 7) 
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e address constants relocated by 


ng block size error during addition 


correctable DASD error Cexcept WLR). 


SY A I SY I TS a NN cE ES I PL NG LS A EL SE SY TS TS ep SY 
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DFT Assembler | Module 
Label IDSECT Label 


IJHCPNT 


Function 


Relative position of the DSKXTN Clogical 
unit, cell number) table Cin words). This 
value is the length of the DTF table divided 


by 4. 
First prime data record in cylinder (CHHR). 
in cylinder CHH). 


Last prime data track 
High record number on master index/cylinder 
index track (R). 

IJHCPDH igh record number on prime data track (R). 
igh record number on overflow track (CR). 


h record number on Shared track (CR). 
index (TI) 


IJHCSTH 


IJHCTIH ord number on track 


43 (2B) 


| 
| 
44-50 


) 
1 byte. 

R area specified. 
S area specified 
switch. 


IJHCRTR : 
K 
W 
d. 
st record being processed (after 
uing SETL macro). 


te key. 


NAO DWN 


index lower limit CMBBCCHH). 


IJHCCIS 


IJHCMIS 


IJHCILN 


51-57 
(33-39) 
58-64 
(3A-40) 


65 (41) 


Cylinder 


index lower limit (MBBCCHH). 


From WAITE routine 
Seek check from WAITF. 
Data track held. 


r Index. 


1 te th er a ee 


“NN AMNDWNEO 


66-73 

(42-49) 

IJHCRESZ 74-75 Logical record length CRECSIZE). 
(4A-4B) 


ea a ere eR eee ee A ee 2 Ne Se i ee eee ee ee 
DTFIS ADDRTR Table (Part 2 of 7) 


oy 
in 
ct 


&Filename.H IJHCCLPA 


as 
i SY ES LY A NY EY SY A NG YY TT YY A i YS NY A RY HOY SONY NONE SO SY NY SRY HA Sy yi Seas eS pi. 


| 
| 
| 
| 
| 
! 
: 
| 
| 
| 
| 
| 
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| 
| 
| 
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| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
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| 
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| 
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| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
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| (2C-32) 


Figure 33. 


96 IBM VSE/Advanced Functions LIOCS Volume 3 DAM and ISAM 


Licensed Program - Property of IBM 


DFT Assembler | Modul | ] 
Label | DSECT Label Bytes j 


IJHCKYSZ 76-77 
(4C-4D) 


78-79 


Function 
Key length CKEYLEN). 


| 
IJHCBLSZ [Block size (logical record length times 


| 
| 
| | 
| | 
| [ (4E-GF) inumber of records) | 
| IJHCRL10 80-81 Overflow record length (logical record | 
| (50-51) length + 10). | 
| IJHCBFAC 82-83 Blocking factor (number of logical records [ 
| | (52-53) in block (NRECDS)). { 
| | 4-85 Index entry length (key length + 10). | 
| | (54-55) | 
| | IJHCABCD 86-87 Prime data record length (key length plus | 
| | (56-57) physical record length (block size) | 
| 88-89 Overflow record length with key (key. length | 
= + ogica recor eng + 
| | (58-59) 1 1 d l th 10). 
| | IJHCCMAX 90-91 Prime data record format length (key length 
| | (5A-5B) + block size + 8). | 
| | 92-93 Overflow record format length (key length + | 
| | (5C-5D) logical record length + 18). | 
| | IJHCKYLC Cee eS Key location (KEYLOC) for blocked records. | 
| [ -97 Constant = 5. | 
[ | (60-61) | 
| 98-99 Constant = 10. | 
| | (62-63 | 
| IJHCATB2 100-101 Displacement of Part 2 of the DTFIS table | 
| (64-65) from start of Part 1. | 
| IJHCATB3 102-103 Displacement of Part 3 of the DTFIS table 
| (66-67) from start of Part l. : 
{&Filename.S IJHCSADR 1104-113 Seek/search address area. [ 
| (68-71) | 
ean | IJHCBKCT P73 oa Random/sequential retrieval work area. | 
| | | 
(&Filename.P | IJHACPRC 124-127 Prime data record count. | 
| | (7C-7F) | 
| {| IJHACSTI 128 Status indicators. | 
| | (80) 0-1 Not used. | 
| 2 = File closed. | 
| | 3-5 Not used. | 
| { | 6 1 = Last prime data track full. | 
| | | 7 1 = Block complete. | 
| IJHACLTA 129-133 Last track index normal entry address | 
| | (81-85) (CCCHHR). | 
| {| IJHACLCA (134-138 Last cylinder index entry address (CCHHR). | 
| | | ©€86-8A) [ 
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DFT Assembler Module — | 


DSECT Label 


Label 
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&Filename.A 


&Filename.O 
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Figure 33. 
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IJHADKEY 


IJHAKLN8& 
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Function 


Last master index entry address (CCHHR). 


Peneens overflow record address 
independent overflow tracks. 


Number of full cylinder overflow areas. 


Overflow record count. 


vag overflow area lower limit 


eet 
© 
Be aa 


Od OD 


he Ls ye on 


ee Pe ne eo mH AH 
ra to 


ent overflow area upper limit 
) 


pe ma | 


ename.D) - Address of work area for 
er overflow control record (COCR). 
ename.D+8&) - Address of work area for 
rrent track index normal entry count 


lename.D+16) - Address of work area for 
t track index overflow entry count 


lename. D+24) - Address of work area for 


&Filename.D+32) - Address of work area for 
current overflow record count field 
AC&Filename.D+40) - Address of work area for 
track index normal entry data field 


AC&Filename.D+50) - Address of work area for 
current overflow record sequence-link field. 


| ACRIOAREALD - Address of IOAREAL, the I/0 
[area used for adding records to a file. 


AC&WORKL) - Address of WORKL>» work area 
containing user data records to be added to 
Jthe file. 


AC&Filename.K) - Address of the ADD key area 


feApea - Address of key position in 
ee 

AC&IOQAREAL+8+&KEYLEN) - Address of data 
Iposition in IQAREAL 
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[DTF Assembly | Module | 


Label |DSECT Label Bytes Bits Function 


IJHCASAD AC&Filename.S+3) - Address of the 
seek/search address areat3. 


= Seek check indicated. 
Not used 


&Filename.2 


| | 
| 
| | 
| | | 
| | 
| | 1 Over/under seek has occurred. | 
| | 1 An error has been found, but a seek | 
| | check is indicated. | 
5-7 AC&Filename.W) - Address of the random/ | 
| | | (5-7) | sequential retrieval work area. | 
| | IJHSIOAR 8-11 | Address of IOAREAS, I/O area used for | 
| | (8-B) | Sequential retrieval. | 
| | IJHCRARA 12-15 Address of IGAREAR, I/O area used for random| 
| | (C-F) | retrieval or address of IQAREA2 Cif | 
| | | l[specified) for sequential retrieval. | 
| | IJHCRKEY | 16-19 | Address of KEYARG, field containin | 
| (10-13) user-supplied key used for random READ/WRITE| 
| | | operations and sequential retrieval | 
| | initiated by key. | 
| IJHCRWOR 20-23 Address of WORKR, work area used for random | 
| | (14-17) | retrieval. | 
| | IJHSDB1 24-27 Current sequential I/O area address. | 
| | (18-1B) | 
| | IJHSLIOR 28-31 L8 L IOREG,¥*-4 - Load I/O register for | 
| | C€1C-1F) sequential or [ 
| | 2. 4&-byte NO-OP instruction for random. | 
| | IJHSLMIT 32 (20) X'00'" = No Verify; X'GO" = Verify. | 
| | 33 (€21) X"00' = Blocked; X'08" = Unblocked. | 
| 34 (22) R = First prime data record on shared track. | 
| | 35-39 Limits for sequential (CCHHR). | 
| | (23-27) | 
| |} IJHSINIT 40-41 H'O' = Blocked records. | 
| (28-29) H'2' = Overflow record. | 
| | H'8"' = Unblocked records. | 
| | G2 (2A) X'*C7* = 2311, 2314, or 2319; | 
| X"FF' = 3330, 3340. | 
| | 43-47 Initial values for sequential [ 
| | (2B-2F) | 
EPL Lenaneen | IJHSCADR nee | Current sequential DASD address (MBBCCHHR). | 
| | | 
| | IJHSCOVE 56-63 | Current overflow DASD address (MBBCCHHR). | 
| | (38-3F) | 
| | IJHSRCNT 64-65 Sequential record count. | 
| | (40-41) | 
| | IJHSTICU 66-67 Current track index entry for sequential | 
| | (42-43) CHR). 
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DTF Assembly 
Label 


Function 


6 Number of records tagged for deletion. 


(44-45) 


&Filename.T 8-69 


| | 
| | 
| { 
| | | 
| | IJHRREGS 70-71 LR &IOREG,O for random (Cor 2-byte NO-OP for | 
| | (46-47) sequential). | 
&Filename.G | IJHRIDSV 72-79 DASD address save area for random retrieval | 
| | (48-GE ) (MBBCCHHR). | 
| TJHRADSV 80-83 Record pointer within I/O area for write | 
| (50-53) (for random retrieval). | 
&Filename.R | IJHROVCN 84-87 Nonfirst overflow record count. | 
| | ©€54-57) | 
[The following information is generated if the cylinder index in core option is { 
fee pecified. Bytes 88-91 (58-5B) are not used ! 
| | IJHCORST | 92-95 { psec - Starting address of main 
| (5C-5F) | storage area specified for cylinder index. | 
| | 96-97 [eae - Number of bytes in main | 
| (60-61) storage available for cylinder index. | 
| f 98-105 |Next cylinder index entry to be read | 
| | (62-69) |} CMBBCCHHR). | 
| 106-110 Last cylinder index entry (CCCHHR). | 
| | (6A-6E) | 
| IJHCORBT 111 (C6F) | Core index byte [ 
| { O 1 = First time through SSBINDEX. | 
| ; 1 1 = End of cylinder index reached. | 
| 2 1 = Index skip option specified. | 
[ 3 1 = Suppress index in-core option and read | 
| | cylinder index. | 
| | 4-7 |Not used. | 
| IJHCORKY 122-115 | {Pointer to key (stored by module). [ 
| | (70-73) | | 
[The following information is generated if the prime data in-core add function is | 
[specified. This information is aligned on a double word boundary. If both cylinder | 
{index in-core and prime data in-core add functions are specified, the following | 
Ras is found in bytes 116-131 (74-83). | 
| | IJHPSIZE 116-117 | Size of IGAREAL. | 
| | (74-75) | | 
| | IJHPMAX 118-119 [Maximum number of prime data records in main| 
| | (76-77) storage. | 
| | IJHPDSPI1 120-123 Address of write CCWs. [ 
| | (78-7B) | 
| | IJHPDSP2 124-127 [Address of read CCWs. | 
| | (7C-7F) | | 
IJHPSW 128(80) Suaken byte. | 
| 0 1 = EOF (Bits 1-7 not used). | 
| | 129 (81) | Reserved. | 
| | IJHDCWRK ae 131 Work field for I/O module. | 
| 82-83) | 


a a a a 
Figure 33. DTFIS ADDRTR Table (Part 6 of 7) 
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DTF Assembly 
Label 


| 
Bytes lpits | Function 


1 Each entry in the DSKXTN table is four bytes long. The minimum number of entries 
is two. There is one entry per extent. 
¢ Location of the end-of-table indicator depends on length of DSKXTN table. 


Numbers in parentheses are displacements in hexadecimal notation. 
Figure 33. DTFIS ADDRTR Table (Part 7 of 7) 


| | 
| | 
[&Filename.B X'O7', &Filename.St+l, X'40", 6 - Long seek | 
| | eee with command chaining. | 
IJHCCCW 3 Channel program build area. See Figures | 

| | (8-3F) eee for a description of the channel [ 
| program builder. | 
| 64-127 [Channel program build area for add function | 
| | (40-7F) pas | 
er esenen? | IJHACOCR pao sees Cylinder overflow control record (COCR). | 
| | 
| IJHACTNA 136-143 Current track index normal entry count | 
| | (88-8F ) field | 
[ | IJHACTOA 144-151 | Current track index overflow entry count | 
| | (90-97) field | 
[ | IJHACRID 152-159 Current prime data record count field. | 
| (98-9F ) | 
| | IJHACFID 160-167 Current overflow record count field. | 
| CA0~-A7) | | 
| IJHACTIN 168-177 Track index normal entry data field. | 
| | (A8-B1) | 
| | IJHACLNK 178-187 Current overflow record sequence-link field. | 
| bane | 
| | IJHACTIA 188-197 Current track index overflow entry data | 
| | (BC-C5) field. | 
| IJHAGATE 198 X"'01" - Add to EOF. | 
| (C6) X'O2' - Add to independent overflow area. | 
| 199-201 Overflow control bytes (CCH). | 
| (C7-C9) | 
| IJHAOCOH Cenecas High HR on overflow track. See Figure 29. | 
| | beeesags Volume upper limit for prime data records | 
| | (CC-D3) CMBBCCHHR) See Figure 30 | 
| | IJHAICOM 212-217 CLC OC&KEYLEN,13),0(€6) - Unblocked | 
| | (D4-D9) CLC OC&KEYLEN,13),&KEYLOC-1(6) - Blocked | 
| | Utility CLC for key. | 
[ | IJHAISKY 218-223 MVC OC&KEYLEN,13),00€12) - Unblocked | 
| {CDA-DF) MVC OC&KEYLEN,13),&KEYLOC-1(12) - Blocked | 
| | Utility MVC for key. | 
&Filename.E 224-2273 First entry in DSKXTN table Clogical unit, | 
| | (EQ-E3) | cell number). | 
| ces ces” | GX'FEF* - End of DSKXTN table. | 
| (E8-EB) | 
l&Filename.K | |236* Key area for add only. Number of bytes | 
| | (EC-end) depends on key lengths KEYLEN. | 
| | 
| 

| 
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The ISMOD €Indexed-Sequential Module) macro 
instruction must be included for each logic 
module required to support each DTFIS macro 
in a particular problem program. The logic 
modules are described by an ISMOD header 
entry and a series of parameter entries. 


See VSE/Advanced Functions Macro Reference 
for an explanation of the parameters. 

The following imperative macros use the 
logic in the ISMOD: 


The logic for the other imperative macros 
used by ISAM CENDFL, ESETL, SETFL and SETL) 
is found in various B-transient routines. 
Flowcharts for ISFMS are in alphabetical 
order by macro within function. The 
functions appear in the following sequence: 


LOAD 

ADD 

RETRVE, RANDOM 
RETRVE, SEQNTL 
ADDRTR 


This section does not discuss each of these 
macros separately but, instead, presents 
them in the context of a particular 
function. 


REENTERABLE MODULE: A reenterable module is 
a logic module hat can be asynchronously 
used, or shared» by more than one file. 
ISMOD is made reenterable by inclusion of 
the RDONLY=YES parameter in the ISMOD macro 
instruction. The RDONLY Cread-only) 
parameter assures, regardless of the 
processing requirements of any file(s) 
uSing the module, that the generated logic 
module is never modified in any way. This 
feature is implemented through the 
establishment of unique Cone for each task 
using the module) save areas external to 
the logic module. Each save area must be 
72 bytes and doubleword aligned. The save 
area for ISMOD contains general registers 
2-14, the last overflow record address, the 
new overflow record address, and a work 
area for the channel program builder. A 
task must provide the address of its unique 
Save area in register 13 before an 
imperative macro is issued to the file and 
a logic module is entered by the tas 


ERROR OPTION EXTENSIONS: When ERREXT is not 


TT TSEACL and an unrecoverable I7O error 
occurs, ISFMS indicates this error in 
Filename.C and returns to the problem 


program. Control is returned to ISFMS only 
by issuing another macro instruction. 


When ERREXT is specified and an 
unrecoverable I/O error occurs, bit 0O of 
Filename.C is set on. Also» byte 2, bit 2 
of the CCB in the DTF is set on when data 
transfer has not occurred. The problem 
program error processing routine should 
determine if data transfer occurred by 
checking the data transfer bit (byte 2, bit 
2) in the DTF. Information concerning the 
record being read or written and the 
operation being performed at the time of 
the error can be found in the 18-byte 
Parameter list pointed to by register 1. 
See Figure 34 for a description of this 
parameter list 


[Bytes|Bits| Contents | 


= =3| [DT address. 
| 


| 

| 

ad [Main storage address of the | 
| lrecord in error. | 
8-15 | {[DASD address of record in | 
| lerror (MBBCCHHR), where M is | 
the extent sequence number and| 

R is the record number. R can| 

be inaccurate if a read error | 
loccurred during a read of the | 

| eke eee level index. | 

16 PeSeere identification: | 
O |Data. | 

1 [Track index. | 

2 [Cylinder index. | 

3 ooeee index | 
fdas of operation | 

4 [Not used. | 

| 5 |Not used. | 

6 |Write. | 

| 7 heoes | 
17 |Command code of failing CCW. | 


Figure 34. ERREXT Parameter List 

After checking for errors and taking 
corrective action if necessary, the problem 
program error processing routine can return 
to ISAM via the ERET macro. The ERET 
IGNORE or ERET SKIP macro returns to ISAM 
to ignore the error condition and process 
the record. The ERET RETRY returns to ISAM 
to make another attempt to read or write 
the record. 


Note: The ERREXT coding is not designed to 
andle irrecoverable errors that are posted 
in Filename.C. Examples of irrecoverable 
errors are No Record Found, Prime Data Area 
Full, Master Index Full» and so on. 
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DOUBLE BUFFERING: Double buffering is 
meaningful only when creating the file or 
sequentially retrieving from the file. If 
IOAREA2=YES is specified as an ISMOD macro 
parameter, and the presence of two I/0 
areas is indicated in the DTF table, 
overlapping of I/0 with processing is ; 
provided for the load create and sequential 
retrieve functions. 


SAM MACRO INSTRUCTIONS TO LOAD OR EXTEND A 
ASD FILE 


The function of originally loading a file 
of presorted records onto DASD, and the 
function of extending the file by adding 
new presorted records beyond the previous 
high record, are the same. Both are 
considered a LOAD operation (specified by 
the DTFIS entry IOROUT), and they both use 
the same macro instructions in the problem 
program. However, the type field in the 
DLBL card must specify ISC for load 
creation and ISE for load extension. 


The areas of the volumes used for the 
file are specified by job control EXTENT 
cards. he areas are: he prime data area 
Where the data records are written, a 
cylinder index area where the user wants 
ISAM to build the cylinder index, and a 
master index area if a master index is to 
be built (specified by the DTFIS entry 
MSTIND). 


During the load operation, ISAM builds 
the track, cylinder, and master Cif 
specified) indexes. 


Three different macro instructions are 
always required in the problem program to 
load original or extension records into the 
logical file on DASD. 


The SETFL (set file load mode) macro 
instruction causes ISAM to set up the file 
so that the load or extension function can 
be performed. When loading a file, SETFL 
preformats the last track of each track 
index; but when extending the file, SETFL 
preformats only the last track of the last 
track index plus each new track index for 
the extension of the file. This allows 
prime data on a shared track to be 
referenced even though no track index 
entries exist on the shared track. 


This macro must be issued whenever the 
file is to be loaded or extended. 


When a WRITE macro in struction with the 
parameter NEWKEY is issued in the problem 
program between a SETFL instruction and an 
ENDFL instruction (the third macro required 
for loading), it causes ISAM to load a 
record onto DASD 


Before issuing the WRITE instruction, 
the problem program must store the key and 
data portions of the record in a work area 


(specified by DTFIS WORKL). The ISAM | 
routines construct the I/O area by moving 
the data record to the data area, moving 
the key to the key area, and building the 
count field. When the I/O area has been 
filled, ISAM transfers the records to DASD 
storage and hen constructs the count field 
for the next record. The WAITF macro 
Should not be used when loading or 
extending an ISAM file. 


Before records are transferred, ISAM 
performs both a sequence check (to ensure 
that the records are in order by key) and a 
duplicate-record check. 


After each WRITE is is 
the ID of that record or 

the problem program. Th 
an 8-byte field labeled 


As records are loaded on DASD,s ISAM 
writes track index entries each time a 
track is filled, writes a cylinder index 
entry each time a cylinder is filled, and 
writes a master index entry (Cif DTFIS 
MSTIND is specified) each time a track of 
the cylinder index is filled. 


ued, ISAM makes 
lock available to 
ID is located in 
Filename.H. 


The ENDFL macro performs an operation 
(similar to a CLOSE) for the file that has 
been loaded. It writes the last block of 
data records, if necessary, and then writes 
an end-of-file record after the last data 
record. It writes any index entries that 
are needed. It also writes inactive track 
index entries for the unused portion of the 
prime data extent for the 2311 device type. 
For DASD types other than 2311, only the 
remaining portion of the last cylinder 
containing prime data records has inactive 
track index entries. 


When extending or adding to a f 
user 1S responsible for checking b 
bit 7 of the DTF to determine whet 
correct blocksize has been specifi 


O INSTRUCTIONS FOR ADDING RECORDS 


m Ad 


After a file has been organized on DASD, 
new records can be added to the file. Each 
record is inserted in the proper place 
sequentially by key. This function is 
provided by specifying ADD or ADDRTR in the 
DTFIS entry IOROUT. 


The file can contain either blocked or 
unblocked records, as specified by the 
DTFIS entry RECFORM. When the file 
contains blocked records, the user must 
Provide ISAM with the location of the key 
field that is provided through the DTFIS 
entry KEYLOC. The records to be inserted 
are written one record at a time. The 
records must contain a key field in the 
ele location as the records already in the 

ile. 
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Whenever the addition of records 

follow sequential retrieval CADDRTED« “he 
macro instruction ESETL must be issued 
before a record is added. 


Two macro instructions, WRITE NEWKEY and 
WAITF are used in the problem program for 
adding records to a file. 


Before the WRITE macro is issued for 
unblocked records, the program must store 
the record (key and data) to be added into 
a work area specified in the DTFIS entry 


WORKL. For blocked records, the program 
must store only the data (the key is 
assumed to be a part of the data). Before 
any records are transferred, ISFMS checks 
for duplicate record keys. If no 
Guplication is found, ISAM inserts the 


record in the file. 


To insert a record into a file, ISAM 
performs an index search at the highest 
level index. This search determines if the 
record to be inserted can be placed within 
the file, or if it iS higher than the last 
record on the file. 


If the record can be inserted within the 
file, searching of the master index Cif 
available), the cylinder index, and the 
track index determines the appropriate 
location to insert the record. 


For an entry to an unblocked files an 
equal/high search is performed in the prime 
data area of the track. When a record on 
the track is found that is equal to or 
higher than the record to be inserted, the 
record is read from the track and placed in 
storage (in the I/O area). he two records 
are compared to see if a duplicate record 
is found. If a duplicate record is found, 
that information is posted to the uSser.in 
the DTF table at Filename.C. If no 
duplicate is found, the appropriate record 
Cin the user's work area) is written 
directly on the track. The record (just 
displaced from the track) in the I/O area 
is moved by ISAM to the user's work area. 
The next record on the track is read into 
th I/O area. 


Then, the record in the work area is 
written on the track. Succeeding records 
are shifted until the last record on the 
track is set up as an overflow record. If 
the ADD I/O area (CIOAREAL) is increased to 
permit the reading or writing of more than 
one record on DASD at a times an equal/high 
search is performed in the prime data area 
of the track. When a record on the track 
is found that is equal to or higher than 
the record to be inserted» aS many records 
as can fit into the [/0O area specified in 
the DTFIS operand IOAREAL are read from the 
ieee and placed in storage (in the [/0 
area). 
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The record to be added is compared to 
existing records in the I/O area. If a 
duplicate key is found, the condition is 
posted to the user in the DTF table 
Filename.C. If no duplicate is found, the 
records are shifted in storage, leaving the 
record with the highest key remaining in 
the user's work area. The other records 
are rewritten directly onto the track. Any 
remaining record(s) on the track are then 
read into the I/0 area. The process 
continues until the last record on the 
track is set up as an overflow record, 


This last record is then written into 
the appropriate overflow area,» and the 
appropriate track index entries are 
updated. This is the cylinder overflow 
area, if CYLOFL has been specified for this 
file and the area has not been filled. 


If the cylinder overflow area is filled, 
or if only an independent overflow area has 


he end record is transferred to the 
independent overflow area. If an 
independent overflow area has not been 
specified Cor is filled) and the cylinder 
overflow area is filled, there is no pene 
available to store the overflow record 

ISAM posts this condition in the DTF table 
at Filename.C. 


In all cas 
written, ISAM 
available. 


before any records are 


es 
determines if room is 


For an entry to a blocked file, the work 
area, WORKL, is required in the 
entries. Each record to be added must 
contain a key field in the same location as 
the records already in the file. The 
high-order position of this key field 
relative to the leftmost position of 
logical record, must be specified to 
by the user. The DTFIS entry KEYLOC 
used for this specification. 


When the WRITE macro is issued in the 
problem program, ISAM first locates the 
correct track by referring to the necessary 
master Cif available), cylinder, and track 
indexes. Thens a search on the key areas 
of the DASD records on the track is made to 
locate the desired block of records. The 
block of records (or as many as will fit 
into the I/0 area if IQAREAL has been 


the 
ISAM 
is 


increased for reading and writing more than 
one record on DASD at a time) is read into 
the I/O area. ISAM then examines the key 
field within each logical record to find 
the exact position in which to insert the 
new record and to check for duplication of 
records. If duplication of keys exists, 
the condition is posted in Filename.C. If 
the key of the record to be inserted 


{contained in the work area WORKL) jis low, 
it is exchanged with the record presently 
in the block. 
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This procedure continues with each 
succeeding record in the block until the 
last record is moved into the work area. 
ISFMS then updates the key area of the DASD 
record to reflect the highest key in the 
block. If the IOAREAL has been increased, 
succeeding blocks in the 1/0 area are also 
updated. The block Cor blocks) is then 
written back onto DASD. The remaining 
blocks on the track are similarly processed 
until the last logical record on the track 
is moved into the work area. This record 
is then set up as an overflow record with 
the proper sequence-link field and moved to 
the overflow area. The indexes are updated 
and ISAM returns to the problem program for 
the next record to be added. If the 
overflow area is filled, the information is 
posted in Filename.C. 


mo 5 


If the proper track for a record 15S an 
overflow track (determined by the track 
index), ISAM searches the overflow chain 
and checks for duplication. If no 
duplication is founds ISAM writes the 
records preceded by a sequence-link field 
in the data area of the DASD record, and 
adjusts the appropriate linkages to 
maintain sequential order by key. ISAM 
writes the new record in either the 
cylinder overflow area or the independent 
overflow area. If these areas are filled, 
the user is notified by a bit in 
Filename.C. 


If the new record is higher than all 
records presently in the file C€end-of- 
file), ISAM checks to determine if the last 
track containing data records is filled. 

If it is not, the new record is added, 
replacing the end-of-file record. The 
end-of-file record is written in the next 
record location on the track», or on the 
next available prime data track. Another 
track must be available within the file 
limits. If the end-of-file record is the 
first record on any track, the new record 
is written in the appropriate overflow 
area. After each new record is inserted in 
its proper location, ISAM adjusts all 
indexes that are affected by the addition. 


The WAITF macro instruction is issued to 
ensure that the transfer of a record has 
been completed. 


This instruction must be issued before 
the problem program attempts to process an 
input record or build another output record 
for the file concerned. The program does 
not regain control until the previous 
transfer of data is complete. 


tks INSTRUCTIONS FOR RANDOM 


When a file has been organized by ISAM, 
records can be retrieved in random order 
for processing and/or updating. Retrieval 
must be specified in the DTFIS entry IOROUT 
(IOROUT=RETRVE or IOROUT=ADDRTR). Random 


processing must be specified in the DTFIS 
entry TYPEFLE=RANDOM. 

Because random reference to the file is 
by record key, the problem program must 
supply the key of the desired record to 
ISAM. To do this, the key must be stored 
in the storage key field specified by the 
DTFIS entry KEYARG. The specified key 

Signates both the record to be retrieved 


de 
and the record to be written back into the 
file in an updating operation. Records 
added to the file between the READ and the 
WRITE macro for a particular record to be 
updated can result in a lost record and a 
duplicate key. 

ee macro instructions (CREAD KEY, 
WRITE” KEY and WAITF) are available for use 
in the problem program for retrieving and 
updating records randomly. 


The READ KEY instruction used in 
conjunction with WAITF macro instruction 
causes ISAM to retrieve the specified 
record from the file. 


To locate the record, ISAM searches the 
indexes to determine the track on which the 
record is stored, and then searches the 
track for the specific record. When the 
record is found, ISAM transfers it to the 
I70 area specified by the DTFIS entry 
IOAREAR. The ISAM routines also move the 
record to the specified work area if the 
DTFIS entry WORKR is included in the file 
definition. 


When records are blocked, ISAM transfers 
the block that contains the specified 
record to the I/0 area. It makes the 
individual record available for processing 
either in the I/O area or the work area (Cif 
Specified). For processing in the I/0 
area, ISAM supplies the address of the 
record in the register specified by DTFIS 
IOREG. The ID of the record can be 
referenced by uSing Filename.G. 


The WRITE instruction with the para 
KEY is used in conjunction with the WA 
macro instruction for random updating. 
causes ISAM to transfer the specified 

record from main storage to DASD storage. 


meter 
ITF 
It 


ISAM rewrites the record retrieved by 
the previous read instruction for the same 
file. The record is updated from the work 
area, if one iS specified; otherwise, from 
the I/0 area. The key need not be 
specified again ahead of the WRITE 
instruction. 


The WAITF macro instruction is issued to 
ensure that the transfer of a record has 
been completed. This instruction must be 
issued before the problem program attempts 
to process an input record or build another 
output record for the file concerned. The 
program does not regain control until the 
previous transfer of data is complete. 


The WAITF 
exceptional 1 
at Filename.C 


instruction posts any 
nformation in the DTEIS table 
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ISAM MACRO INSTRUCTIONS FOR SEQUENTIAL and initializes the ISAM routines to begin 

RETRIEVAL retrieval at the specified starting 
address. It requires two parameters. The 
first operand (Filename) specifies the name 

When a file has been organized by ISAM, of the file (specified in the DTFIS header 

records can be retrieved in scavedt ras entry) from which records are to retrieved. 

order by key for processing and/ 

updating. The DTFIS entry IOROUT= RETRVE The second operand specifies where 

must be specified. Sequential processing Processing is to begin. If the user is 

must be specified in the DTFIS entry processing by the record ID, the operand 

TYPEFLE=SEQNTL. Idname or (r) specifies the symbolic name 
of the main-storage field in which the user 

Although records are retrieved in order supplies the starting Cor lowest) reference 
by key», sequential retrieval can start at a for ISAM uSe. The symbolic field contains 
record in the file identified either by key information as shown in Figure 35. If 
or by the ID Cidentifier in the count Processing is to begin with a key supplied 
field) of a record in the prime data area. by the user, the second operand is : 
Sequential retrieval can also start at the The key is to be supplied by the user in 
beginning of the logical file. The user the field specified by the DTFIS entry 
specifies, in SETL>, the type of reference KEYARG. If the specified key is not 
he will use in the problem program. present in the files an indication will be 

given at Filename.C. 

Whenever the starting reference is by The second operand BOF specifies that 
key and the file contains blocked records retrieval is to start at the beginning of 
CRECFORM=FIXBLK), the user must also the logical file. 
provide ISAM with the position of the key 
field within the records. This is Selected groups of records within a file 
specified in the DTFIS entry KEYLOC. To containing identical characters or data in 
search for a record, ISAM first locates the the first locations of each key can be 
correct block by the key in the key area of processed by specifying GKEY in the second 
the DASD record. (The key area contains operand. The GKEY specification allows 
the key of the highest record in the processing to begin at the first record (Cor 
block.) Then, ISAM examines the key field key) within the desired group. The user 
Within each record in the block to find the must supply a key that will identify the 
specified record. Significant Chigh order) bytes of the 

required group of keys. The remainder (Cor 

Four macro instructions (SETL, GET, PUT insignificant bytes) of the key must be 
and ESETL) are available for use in the padded with blanks, binary zeros, or bytes 
problem program for retrieving and updating lower in collating sequence than any of the 
records sequentially. insignificant bytes in the first key of the 


group to be processed. The problem program 
The SETL C€set limits) macro instruction 
initiates the mode for sequential retrieval 


Ee | Identifier | Contents | Information ! 
| O M 2-245 Extent sequence number of the volume in which | 
| the starting record is located. | 
lee 0,0 (for disk) Always zero for disk. | 
| 3-4 > 0,1-199 Cfor Cylinder number for disk. | 
| | | 23117231472319) | 
| | | 0-403 (for 3330) } 
| | 0-347 (for 3340 | | 
| { with 35MB) | 
| | 0-695 (for 3340 | 
| | with 7OMB) | 
15-6 | H,H | 0,0-9 (for 2311) area position for 2311, 2314, 23193, 3330, and } 
| | | 0,0-19 (for een disks. | 
| | 2314/2319) | 
| | | 0,0-18 (for 3330) | 
| | {| with 7OMB) | | 
| 7 R 1-254 Record location. | 
Fe ee ae er ee ee a ee 


Figure 35. Pointer to First Record to be Processed by Sequential Retrieval 


must determine when the aqeneric group i15 This method also allows starting at a 
completed. Otherwise, JSAM continues key equal to or greater than the one | 
through the remainder of the group. specified in the DTFIS entry KEYARG without 


getting an error indication in Filename.C. 
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The GET macro instruction causes ISAM to 
retrieve the next record in sequence from 
the file. It can be written in either of 
two forms, depending on where the record is 
to be processed. 


The first form is used if records are to 
be processed in the I/0 area (Specified by 
DTFIS IOAREAS). It requires only one 
parameter, which is the name of the file 
from which the record is to be retrieved. 
ISFMS transfers the record from this file 
to the I/0 area,» and the record is 


available for the execution of the next 
instruction in the problem program. The 
key is located at the beginning of IOQAREAS 
and the register (CIOREG) points to the 
data. If blocked records are specified, 


ISAM makes each record available by 
supplying its address in the regis acer 
specified by the DTFIS entry IOREG The 
key 1S contained in the record. 


The second form of the GET instruction 
is used if records are to be processed in a 
work area (DTFIS specifies WORKS). It 
requires two parameters both of which can 
be specified as symbols or in register 
notation. The first is the name of the 
file, and the second is the name of the 
Work area. When register notation is used, 
workname should not be preloaded into 
register 1. The record 18 available for 
the execution of the next program 
instruction. 


If blocked records are specified in the 
file definition, each GET that transfers a 
block of records to main storage will, if 
necessary, also write the preceding block 
back into the file in its previous block 
location. GET writes the preceding block 
if a PUT instruction has been issued for at 
least one of the records in the block. If 
no PUT instructions have been issued, 
updating is not required for this block, 
and GET does not cause the block to be 
rewritten. Whenever an unblocked record is 
retrieved from the prime data area, ISAM 
supplies the ID of that record in the field 
addressed by Filename.H. If blocked 
records are specified, ISAM supplies the ID 
of the block. The PUT macro instruction is 
used for sequential updating of a file, and 
causes ISAM to transfer records to the file 
in sequential order. PUT returns a record 
that was obtained by a GET. It can be 
written in either of two forms, depending 
on where records are processed. 


The first form is used if records are 
processed in the I/O area (specified by 
DTFIS IQAREAS). It requires only the name 
of the file to which the records are to be 
transferred. 


_ ~The second form of the PUT instruction 
is used if records are processed ina work 


Indexed 


area. It requires two parameters, both of 
which can be specified either as a symbol 
or in register notation. The first is th 
name of the file, and the second is the 
name of the work area. When register 
notation is used, workname should not be 
loaded into register ll. The work area name 
may be the same as that specified in the 
preceding GET for this file, but this is 
not required. ISAM moves the record from 


e 


the work area specified in the PUT 
instruction to the I/70 area specified for 
the file in the DTFIS entry TOAREAS. 


When unblocked records are specified; 
each PUT writes a record back onto the file 
in the same location from which it was 
retrieved by the preceding GET for this 
file. Thus, each PUT updates the last 
record that was retrieved from the file. 
If some records do not require updating,» a 
series of GET instructions can be issued 
Without intervening PUT instructions. 
Therefore, it is not necessary to rewrite 
unchanged records. 


When blocked records are specified, PUT 
instructions do not transfer records to the 
file. Instead, each PUT indicates that th 
block is to be written after all the 
records in the block have been processed. 
When processing for the block is complete 
and a GET is issued to read the next block 
into main storage, that GET also writes the 
completed block back _ into the file in its 
previous location. If a PUT instruction is 
not issued for any record in the block, GET 
does not write the completed block. The 
ESETL macro instruction writes the last 
block processed, if necessary, before the 
end of file. The ESETL Cend set limit) 
macro instruction ends the sequential mode 
initiated by the SETL macro. If blocked 
records are specified, ESETL writes the 


last block back if a PUT was issued. 

Note: If ADDRTR and/or RANSEQ are specified 
in the same DTF, ESETL should be issued 
before issuing a READ or WRITE. Another 
SETL can be issued to restart sequential 


retrieval. 


ISAM LOAD: ENDFL Macro, Phase 1] - 
SSBENDFEL, Charts DA-DB 

Objective: To validate eee address 
limits and DTFIS table limits To reset 
error indicators in DTF table To pad key 
field and write partially filled block if 
present. To write EOF record. To write TI 
(track index) entries, CI (cylinder index 
entey. nd MI (Cmaster index) entry if 
needed. 
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To compute number of bytes used in the 
highest level index used. To write track 
index inactive entries if needed. 


Entry: From the ENDFL macro expansion. 


Exits: To the second phase of the ENDFL 
macro, $S$BENDFF. 


Method: This phase first validates the 
address limits of IQAREAL and the DTFIS 
table via an SVC 26. It then resets error 
indicators in the DTF table for prime data 
area full, duplicate record, and sequence 
error. It checks for a partially filled 
blocked record. If one is present, it pads 
the key field with all X‘'F‘'s and writes the 
partially filled block. 


A series of tests is made to determine 
the location of the last prime data record 
written. If the record was not the last 
record on the track, the last track full 
indicator is set off. If the record was 
the last record on the track, the address 
in the ID field of IOAREAL is modified. 
space iS available in the prime data area, 
the EOF record is eae Cn, If enough space 
is not available for the EOF record, this 
condition is posted at Filename.C in the 


DTF table. 


A test is made to determine if the last 
prime data track was full. If not, this 
routine writes the track index normal entry 
and the track index overflow entry. t 
also writes the cylinder index normal 
entry, and Cif the master index is sage 
used) the master index normal entry Lt 
the last prime data track was full “and the 
last track index record number was not 0, 


this routine writes a cylinder index normal 
entry and a master index normal entry, if 
the master index is being used. 


If the last track index record number 
Was zero, but the track was not O> a 
cylinder index normal entry is written. I f 
the last track index track was Q, and the 
cylinder index record is not the last 
record on the track, a master index normal 
entry is written (Cif the master index is 
being used). Otherwise, pointers are set 
to the lower limit of the highest index 
level being used. 


The routine then computes the total 
number of bytes used in the normal entries 
of the highest level index being used 


When the total number of bytes in the 
highest level index has been determined, 
this phase formats the track index inactive 
entries and then tests to determine if 
there are more track index records on the 
cylinder. If so, track index inactive 
entries are written until there are no more 
records on the cylinder. A test is made 
for the device type. If the device is a 
2311, this routine continues to write track 
index inactive entries until the end of the 
prime data extent is reached, keeping a 
count of the number of cylinders containing 
track index inactive entries. For a DASD 
other than 2311, this phase does not format 
any more track index inactive entries. 


When there are no more track index 
inactive entries to be written, the address 
of the DTF is saved for the next phase, and 
this phase exits to phase $SBENDFF. 
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ISAM LOAD: ENDFL Macro, Phase 2 -— 
SSBENDFF, Charts DC-D 


Objective: To write cylinder and master 
index inactive entries for any unused 
cylinders. To write cylinder index and 
master index dummy end entries. To write 
cylinder index and master index dummy 
chained entries. 


Entry: From the first phase of the ENDFL 
macro, S$BENDFL. 


pees To the problem program via an SVC 
Method: This transient routine first 


formats the cylinder index inactive entry. 
Using the count of the number of cylinders 
containing track index inactive entries», as 
determined by $$BENDFL, this routine writes 
cylinder index inactive entries for the 
unused cylinders. While the inactive 
entries are being written, a count is kept 
of the number of tracks containing cylinder 
index inactive entries. After the last 
cylinder index inactive entry is written, a 
cylinder index dummy end entry is written. 


The routine then tests to determine if 
the master index iS being used. If it is, 
master index inactive entries are written 
using the count of cylinder index tracks 
containing inactive entries. One master 
index inactive entry is written for each 
track of cylinder index inactive entries. 
After the last master index inactive entry 
is written, this routine writes a master 
index dummy end entry. 


At the end of each master index or 
cylinder index cylinder, there 1s a master 
index or cylinder index dummy chained entry 
that points to the next master index or 
cylinder index cylinder. In other words» 
the last record on the last track of a 
cylinder of cylinder index records points 
to record on track 0 of the following 
cylinder if it is also in the cylinder 
index extent. After the dummy end entries 
have been written, this routine writes 
dummy chained entries, if any» for the 
cylinder index, and for the master index, 
if it 1s being used. 


When the dummy chained entries have been 
written, this phase exits to the problem 
program via an SVC Ls 


ISAM LOAD: SETFL Macro, Phase |] - 
S FL 


L 
SSBSET » Charts DE-DF 


Objective: To validate DTFIS table limits 
and IOAREAL limits. To test for prime data 
on data cell and disk devices. To 
determine the number of cylinders in the 
prime data extent, the maximum number of 
cylinder index entries in the cylinder 


index extent, and to check if the cylinder 
index extent is too small. To check if the 
master index extent (Cif present) is too 
small. To build the basic CCW string for 
use by the LOAD module and ENDFL 
transients. To move last prime data, track 
index, cylinder index», and master index 
record addresses to the DTF table. 


Entry: From the SETFL macro expansion. 


Exits: To the $SBSETFF for normal exit. To 
problem program (Cvia SVC 11) if cylinder 
ret or master index extents are too 

Sma ‘ 


Method: This B-transient f 
the address limits of IQAR 
table. It then tests whet 
data is on a data cell or evice, and 
moves the address limits to the prime data 
control field of the DTF table. 


This phase then calculates the number of 
prime data extents minus one. The total 
number of cylinders minus one is then 
calculated. 


irs alidates 
EAL d the DTFIS 
her i 
dis 


This phase next calculates the number of 
active records in the cylinder index, and 
compares this number with the total number 
of prime data cylinders minus 1. If the 
number of cylinders is greater than or 
equal to the number of cylinder index 
records, the cylinder index extent is too 
small and flags are set to indicate this 
condition. 


A test is then made to determine whether 
the master index is being used. If it is, 
the total number of cylinder index records 
referenced by the master index is used to 
determine the number of cylinder index 
cylinders referenced by the master index. 
One dummy record per cylinder index 
cylinder is subtracted from the total 
number of cylinder index records. The 
result of this subtraction (number of 
cylinder index records referenced by the 
master index) is compared to the total 
number of prime data cylinders minus one. 
If the number of prime data cylinders is 
gQreater than or equal to the number of 
cylinder index records, the master index is 
too small, and flags are set to indicate 
this condition. If he master index is not 
being used, this check is bypassed. 


The phase then checks to determine if 
either the cylinder index or master index 
extent is too small. If sos this phase 
returns to the problem program via an SVC 
ee If the extents are large enough, the 
record number of the track index dummy 
record is calculated, and the logical 
transient proceeds to build the CCW string 
shown in Figure 36. 


When the CCW string has been completed, 
the seek/search address is set up. The 
lower limit address of the prime data area 
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is moved to the seek/search address area,» full, the last two track index entries must 

and a test is made to see if the file is to be rewritten during the load operation 

be extended. If so, the extension (since the highest key on the prime data 

indicator in the DTF table is set on, and track increases when new records are 

the address of the last prime data record written). Therefore, the LTIRA is 

is saved for $SBSETFF. TTIRA (last track decreased to point to the track index 

index record address) is initialized to the entries for the previous track. The LCIRA 

address of the last track index overflow Clast cylinder index record number) and the 

entry. A test is made to see whether the LMIRA Clast master index record number) are 

upper limit address of the prime data also decreased by one. CLMIRA is only 

extent has been increased. If so» an decreased if the master index is being 

indicator is set for $S$$BSETFF, and the old used. ) SSBSETFF is then fetched. 

prime data upper limit is moved to the 

seek/search address area. The upper limit If the last prime data track is full, 

address is initialized with the new prime and it is not the end of the cylinder, the 

data upper limit. LPDRA Clast prime data record address) is 
increased to record zero on the next track. 


A test is then made to See j 
prime data track is full. If it is not 


| CCW Built | Function | 


[X'07', Address of Prime Data Lower Long seek. 

[Limit, Command Chaining,» 6. | 

X'23", Address of Sector Argument, Set Sector for beginning of the prime 
Command Chaining, 1. oe jdata area. 


identifier equal for the beginning 
of the prime data area. 


TIC to *-8. 


Fa) 
m 
wu 
“ 
7] 
zs 


IX" 31", Address of Prime Data: naniee 
[Limit, Command Chaining, 5. 


{[X'08', Pointer to *-8, Command 
Cha unthos -, 


{X'1D', Address of IQAREAL, Suppress Write count, key and data in prime data area 
hength Tadi cater. 16384. If the verify option is specified, the command 
: chaining bit is set on in the flag field. 
122", Addr ees of Sector Argument, Read Sector for last record written. 

Command Chaining, 1. 


If the verify option is specified, he follewins CCWs are built in addition to those 
above. 


t23', Address of Sector Arguments | Set Sector for beginning. of the prime | 
ommand Chaining, 1. data area. 


xX 

C 

X'31', Address of Prime Data Lower iSearch identifier equal. 
Limit, Command Chaining, 5. 
X 
C 
x 
an 


"08', Pointer to *-8, Command TIC to *-8. 


haining, -. 


1E' 0, Suppress Length Indicator |Read count, key and data to verify prime data 
nd Data Transfer, 1. jrecord written. No data is transferred to 


Imain storage. 
(a a ee 


Note: The shaded areas indicate CCWs built for RPS only. 
Figure 36. CCW Chain Built by $SBSETFL to Write Prime Data Records 


| 
aad 
[X 
[ 
j 
| 
| 
- 
[ 
[ 
E 
| 
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| 
| 
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| 
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A test is made to see whether the last If the last cylinder index track is full, 
track index entry address is the last LMIRA is not changed. 
record on the track index track. If So, ; 
the LTIRA is set to _ record zero on the next When ail processing has been completed, 
track. Then the LCIRA and the LMIRA are this phase exits to phase $SBSETFF to 
decreased by one, and $SBSETFF is fetched. initialize the CCW chain and I/0 areas. 


If the last prime data track is full, 


and the cylinder is full, the LPDRA and the 

LTIRA are updated to the start of the next ISAM LOAD: SETEL Macro, Phase 2 - 

cylinder of the prime data extent. Since SSBSETFF, Chart DG 

the last prime data cylinder _is full, the 

last LCIRA is not changed. If the last 

cylinder index track is not full, the LMIRA Objective: To i iali e CCW chain and 
e i 


th 
is decreased by one. I70 areas as the last track 
e 


r 
index track r of the prime 
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data area and the COCR (cylinder overflow 
control record), if the cylinder overflow 

oor ae has been specified in the DTFIS 
able. 


Entry: From the first phase of the SETFL 
macro, S$BSETFL. 

Exit: To the third phase of the SETFL 
macro, $S$$BSETFG. 

Method: This phase first gets the key 
length from the DTFIS table and stores it 
in the count fields associated with the 
write count, key and data CCWs These 


CCWs are built io write up to 41 track 
index records with one EXCP. 


A track index dummy record is built in 
the user's IOAREAL and the number of 
cylinder overflow tracks in each cylinder 
is calculated and saved in the COCR data 
field. This phase then determines the 
correct Write Count, Key and Data CCW to 
write the track index dummy record. When 
the correct CCW is found, the address of 
IOAREAL is moved to its data address field. 


A test iS made to determine if the 
cylinder overflow option has been 
specified. If it has, Record Zero (RO) 
the track index contains a COCR. 
is found in the data area of RQ. The CO 
contains the address of the last overflow 
record on the cylinder and the number of 
tracks remaining in the cylinder overflow 
area. This phase initializes the COCR with 
the address of the first cylinder overflow 
ae. and the number of cylinder overflow 

racks. 


It tests to determine if the track index 
records to be formatted are on track O of 
each cylinder. If so,» the seek command 
code is changed to a NO-OP, the flag bits 
are set to indicate command chaining, the 
file protect indicator is reset and 
SSBSETFG is fetched for execution. All 
riting is done on track O with one EXCP. 

f the track index records are not on track 
» a test for DASD file protect is made. 

f the DASD file protect feature is not 
resent, flag bits of the seek CCW are set 
o indicate command chaining, the file 
rotect indicator is reset and S$BSETFG is 
fetched for execution. All writing is done 
with one EXCP. If the file protect feature 
is present, the file protect indicator is 
left on and SS$BSETFG is fetched. All 
writing is done with two EXCPs. If the 
cylinder overflow option has not been 
specified, the file protect indicator is 
Pcee All writing will be done with one 


wl 
I 
0 
I 
p 
p 


Indexed 


ISAM LOAD: SETFL Macro hase 3 - 
SBSETFG, Chart D 


Objective: To format last track index tr 


ack 
To write COCR 


in each prime data cylinder. 

data if the cylinder overflow option has 
been specified. 

Entry: From the second phase of the SETFL 
macro, S$BSETFF. 

Exit: To problem program via an SVC 11 or 
to phase 4 of the SETFL macro, $$BSETFH, 
via an SVC 2, or to phase 3A of the SETFL 
macro, $$BSETFI, if RPS is supported. 
Method: This logical transient phase first 


checks to determine whether the file has 
been extended, but the prime data area 
upper limit has remained the same. If so, 
no formatting is required, and a branch 15 
taken to read the last prime data record. 
If the file is being created or being 
extended with increased upper limit, this. 
Phase formats the last track index track in 
each prime data cylinder (1 track per EXCP 
through use of an extended CCW chain), and 
writes the COCR data for each cylinder if 
the cylinder overflow option is specified. 


ISAM LOAD: SETFL Macr Phas 3A - 
SSBSETFI, Chart DK 


Objective; To build an RPS CCW chain for 
the load function if RPS is supported, and 
to initialize the remaining DTF fields. 


Entry: From the third phase of the SETFL 
macro, S$BSETFG. 


Exit: To the proble 
or ‘or to phase i of th 
via an SVC 


Method: If the DTF is an RPS type DTF, the 

Load CCW chain is built in the DTF 

tension with embedded RPS CCWs. Then 

S phase tests to determine whether the 
is being extended or created. If the 
is being created, the seek/search 

ess is set up», the count field of the 

ae is initialized with the address, 

e 


wo 3 


program via an SVC ll 
SETFL macro, $S$BSETFH;, 


ength and data length of the last 
ime data record. The CCB is initialized 
th the address of the CCW chain. 


If the file is being c d, the block 
position address is set wi e current 
logical record address. T 1 
counter is saved in the 24 

a 
it 


zU KAY —hnet OD 
— 3 1 oe 


is initialized with the 
chain» and this phase ex 
program via an SVC ll. 


If the file is bein 
is fetched via an SVC 


of the CCW 
the problem 


g extended, §$$BSETFH 
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Objective: For extension of file, to read 
the last prime data record so that keys may 
be compared by the ISMOD macro. 


Entry: From the third phase of the SETFL 


macro, $SBSETFG. 
Exit: To problem via an SVC ll. 
Method: For extension of file, this phase 


reads the last prime data record (the 
address wWas saved by the first phase, 
SSBSETFL). This provides keys for a 
comparison in the load operation. If the 
records are blocked and the last block was 
not filled by a previous load operation, 
this phase finds the padded record and sets 
the block position address to load the next 
prime data record at the location of the 
padded record. If the records are blocked 
and the last block is full, this phase 
reads the last cylinder index entry to 
obtain the highest key of the load file and 
sets the block position address to load the 
next prime data record at the location of 
the data in IOAREAL. 


ISAM LOAD: WRITE Macro, NEWKEY, Charts 
DL-DP 


Objective: To ensure that keys are in 
ascending sequence. To write prime data 
record in correct location. To write track 
index entries, cylinder index entry and 
master index entry, if necessary. 


Entry: From the WRITE, NEWKEY macro 
expansion. 


Exit: To problem program via return 
register 14. 


Method: This routine first tests switches 
in the DTF table to determine if the prime 
data area is full or if the cylinder/master 
index is too small. If either condition 
exists, this routine exits to the problem 
program via linkage register 14. A test is 
then made to determine if IOAREA2=YES is 
specified as_an ISMOD macro parameter 
option. If IOAREA2 is specified and the 
presence of two I/O areas is indicated in 
tHe DTF table to allow overlapping of I70 
With processing while creating the file, 
this routine gets the addresses of IQAREAL 
and IOAREA2 and determines if the ENDFL 
macro was issued. If it has been issued,» a 
wait for I/0 completion and a test for 
ERREXT=YES are made. If ERREXT is 
specified, additional error conditions can 
be returned to the problem program, thus 
giving the user greater flexibility in 
attempting to continue processing. 


If IOAREA2 is not specified or if the 
ENDFL macro was not issueds a test is made 
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to determine if the current record is the 
first record in the file. f it is the 
first record in the file, a test for 
IOAREA2=YES is made. If IQAREA2 is 
specified and there are two I/0 areas, the 
traffic bit in the CCB is turned on and the 
IOAREA2 address constant is relocated. If 
IQOAREA2 is not specified or if the current 
record is not the first record in the file, 


the current key is moved to the I/0 area 
and a test is made to determine if the 
previous key is lower than the current key. 
If the previous key is not lower, a test 
for duplicate keys is made. If the keys 
are equal, a duplicate record indicator is 
set at Filename.C. If the current key is 
lower than the previous key, an 
out-of-sequence indicator is set at 
Filename.C. Control then returns to the 
problem program. 


If the previous key is lower than the 
current key, the current key and data are 
moved to the I/O area, the prime data 
record count and logical record count are 
updated by 1 and a test is made to 
determine if this jis the first logical 

1 block. If it is the first 

d, the record number in the 

count field of the I[/0 area is updated. If 
IOQOAREA2 is specified, a test for a full 
block is made. If the block is not full, 
the logical record count and the block 
position address are saved and control 
returns to the problem program. 


If the block is full, the logical record 
count is reset to O and a test for 
IQAREA2=YES is made. If IOAREA2 is 
specified, the addresses of the two I/0 


record in the 
logical recor 


areas are interchanged and saved in the DTF 
able. The I/O area data address is saved 
as the block position address, and a test 
for ERREXT=YES is made. If ERREXT is 
specifieds the record type in the parameter 
list is set to indicate data. A test for 
IQAREA2=YES is made. If IOQAREA2 is 
specified and there are two I/O areas 
present, the prime data record ID is 


updated again and a prime data record from 
the second I/0 area is written. If IQAREA2 
1s not specified, a prime data record from 
IOAREAL is written. 


Note: The preceding process works for both 


blocked and unblocked records. 


A check is then made to determine if the 
data record was written on a Shared track. 
If it was written on a shared track, and it 
was not the last record of a shared track, 
control returns to the problem program. If 
the record was the last on a Shared track, 
a test for IOQAREA2=YES is made. If IQAREA2 
is specified, a wait for I/O completion is 
made. The track index normal entry is then 
initialized to indicate a shared track 
index entry. 


If the record was not written on a 
shared track and it was not the last record 
on the prime data track, control returns to 
the problem program. 
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If the end of the prime d 
reached, a test for IQARE 
If IOAREA2 is specified, 
completion is made anda te ° 
ERREXT=YES is made. If ERREXT is 
specified, the record type in the parameter 
list is set to indicate track index. The 
track index normal and overflow entries are 
written and the last track index record 
address is saved. 


uw pPwu 


Tests are then made for end of cylinder. 
If the last prime data record written was 
not the next-to-last or last record on the 
cylinder, the current prime data track 
number is updated by 1 and control returns 
to the problem program. If the record was 
the next to last record in the cylinder» a 
test is made for the end of the prime data 
extent. If the end of the extent has not 
been reached, the prime data track number 
is increased and control returns to the 
problem program. If it is the end of the 
extent, the end-of-extent indicators in the 
DTF table are set and control returns to 
the problem program. 


If the record was the last prime data 


record on the cylinder, a test for 
ERREXT=YES is made. If ERREXT is 
specified, the record type in the parameter 
list is set to indicate cylinder index. 
cylinder index entry is then written and 
the last cylinder record address is 


If a master index is being used, 
index entry is written if: 


updated. 
a master 


Ans The cylinder index entry is the next to 
last track in the cylinder. 
2% The cylinder index is the last record 
on the track. Before the master index 
entry is written, a test for ERREXT=YES 
iS made. If ERREXT is specified, the 
record type in the parameter list is 
set to indicate master index. 


Next, this routine tests for the end of the 
prime data volume. If end of volume has 
been reached, the extent sequence number is 
updated by 1 and the seek/search address is 
modified to the beginning address of the 
volume. If it is not the end of volume, 
the address in the seek/search area is 
updated, and the last track index record 
address and the address in the EOUIE field 
of the I/O area are modified. (Thi 
modification also occurs for end ots prime 
data volume.) This routine then exits to 
the problem program via return register 14. 


ISAM ADD: WAITFE Macro, Charts EA-ED 


Objective: To add a record to an indexed 
sequential file, adjusting the indexes and 
other records as necessary. 


Entry: From the WAITF macro expansion. 


Indexed 


Exit: To the problem program via linkage 
register 14. 


Method: This routine first tests for 
ERREXT=YES. If ERREXT is specified, 
additional error conditions can be returned 
to the problem program, thus giving the 
user greater flexibility in attempting to 
continue processing. After waiting for the 
completion of the I/O operation, this ; 
routine determines the type of add function 
to be performed. The three types of add 
functions are: 


e Normal add to the prime data area 

e Add to the overflow area 

° EQF add. 

Normal Add to the Prime Data Area: If a 
normal add to the prime data area i15 
required, this routine determines if the 
record is to be added to the last prime 
data track. If it is and the last prime 
data track is full, the overflow record 
address is calculated, and EXCP is issued 


to search and read the prime data track to 
determine the point of insertion and a wait 
for I/0 completion is made. Figures 37-58 
give a description of the channel program 
builder for the ADD function. If the 
addition 1s not on the last prime data 
track, the overflow record address is 
calculated and the prime data ep oes is 
searched to determine the point of 

insertion for the record to be added to the 
file. When an equal/high key is found 
during the search, the count and data 
fields of that location are read into a 
Save area in the DTF table and IQAREAL 
respectively. 


A test is made to determine if the prime 
in core option has been specified as 
an ISMOD macro parameter. If it has been 
specified», as many records as can fit into 
the I/O area specified in the DTFIS operand 
IOAREAL are read from the prime data track 
into main storage. The key of the record 
to be added is compared to the keys of the 
existing records in the I/0 area. If a 
duplicate key is found, the condition is 
indicated to the user in the DTF table 
entry labeled Filename.C. If no duplicate 
key is found, the records are shifted in 
main storage leaving the record with the 
highest key remaining in the user's work 
area, WORKL. The other records are 
rewritten directly onto the track. Any 
remaining records on the track are then 
read into the I/0 area. The process 
continues until the last record on the 
track is set up as an overflow record. 

When the last prime data record on the 
track has been rewritten, the new overflow 
record is written in the overflow area, the 
track index normal and overflow entries and 
the COCR are written and control returns to 
the problem program. 


If the prime data in core option has not 
been specified as an ISMOD macro parameter, 
a_ test for blocked records is made. If the 
file is unblocked, the record previously 
found on the search key equal/high is 
reread to get the key field. 
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If it is a 


duplicate key, a switch is set 
on in the ear 
y 


ca 

table indicating a 
duplicate ke as been sensed, and a return 
to the problem program is made. If there 
are no duplicate keys, the user's key and 
data are written from the work area, WORKL, 
onto the DASD file. The record in the I/0 
area, I[OAREAL, replaces the user's record 
in the work area. The next record on the 
track replaces the one in the I/O area. 
This process is repeated until the end of 
track is reached. 


If the end-of-file (EOF) record is read 
during the process of shifting the records 
over one record position, this routine 
writes the last record over the EOF record, 
and then writes a new EOF record (see 
Figures 393, 47, 48). 


i 


If the file contains blocked records, 
this routine reads the block of records (Cor 
as many as fit in the I/0 area if IGAREAL 
has been increased for reading and writing 
more than one record at a time) into 
IOAREAL. The key field within each logical 
record is analyzed to determine the correct 
position in which to insert the new record. 
If there is duplication of keys,» a switch 
is set on in the DTFIS table and control 
returns to the problem program. 


If the key of the record to be inserted 
(contained in WORKL) is low, it is 
exchanged with the record presently in the 
block. This procedure continues with each 
succeeding record in the block until the 
last record is moved into the work area. 
The key field of the DASD record is then 
updated to reflect the hi est key in the 
block. If the size of I 
increased, succeeding bl s in the I/0 
area are also updated. 
blocks) is then written back onto DASD. 
The remaining blocks on the track are 
Similarly processed until the last logical 
record on the track is moved into WORKL. 
This record is then set up as an overflow 
record with the correct sequence-link field 
added and written in the overflow area. 
The sequence-link field for the new 
overflow record is taken from the track 
index overflow entry. The indexes are 
updated and control returns to the problem 
program for the next record to be added 
If the overflow area is full, this 
information is indicated to the user in the 
DTF table entry labeled Filename.C. 


The track index normal entry key field 
is updated to the key of the new last 
record, the track index overflow entry data 
field is updated to the address of the new 
overflow entry (that entry has the lowest 
key for the over eae for that track) and 
the COCR is update These records are 
written on the ASD file before control 
returns to the problem program. 


If the last block in the prime data area 
is padded, the last record to be shifted is 
included in that block. If the EOF record 
is read during the process of shifting the 
records one record position, the last 
record is written as a new block and a new 
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EOF record is written before returning 
control to the problem program. 


Add to the Overflow Area: This routine 


computes the new overflow record address 
and reads the overflow chain to get the 
address of the record with the next highest 
key. This address is stored in the 
sequence-link field of the new record. The 
new overflow record is then written in 
either the cylinder overflow area or 
independent overflow area. If these areas 
are full, this condition is indicated to 
the user in the DTFIS table entry labeled 
Filename.C. Each time an overflow record 
is added to the independent overflow area, 
an EOF record is written to maintain the 
integrity of the indexed sequential file 
(see Figure 49). The next overflow record 
followed by an EOF record overlays the 
previous EOF record. 


If the new overflow record has the 
lowest key in the overflow chain, its 
address is used to build a new track index 
overflow entry. The new overflow entry is 
then written on the DASD file (see Figure 
46) and control returns to the problem 
program. If a cylinder overflow condition 
occurs, the updated COCR (cylinder overflow 
control record) is written on DASD before 
control is returned to the problem program 
(see Figure 43). 


If the new overflow record does not have 
the lowest key, the sequence-link field of 
the record with the next lower key is 
updated to contain the address of the new 
overflow record. This overflow record is 
then rewritten on DASD and the COCR is 


updated. Control returns to the problem 
program. 

EOF Add: This routine first determines if 
the last prime data track is full. If the 
last prime data track is not full, the new 
record is inserted on it. If the file is 
blocked, the block is read and the new 


record is inserted. 


If the file is not blocked or if it is 
blocked and the last block is full» a new 
last prime data record address is stored 
and the new record is written at that 
address. A new EOF record is then written 
(see Figure 39). 


If the last prime data track is full, 
the new record is inserted in the overflow 
area. The new overflow record address is 
computed and the record is written in the 
overflow area. 


If an overflow chain is present, the 
next lower record in the chain is found and 
the address of the new record is moved to 
the oC Suenes link field of the next lower 
record. 


If no overflow chain is present, the 


address of he new overflow record is moved 
to the track index overflow entry. The 
track index overflow entry is then written 
With the new high key. The master index 
Cif present) and the cylinder index are 
updated with the new high key. A test for 
the cylinder index in core option is then 
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made. If it has not been specified, If the F code indicates a dummy chained 
control is returned to the problem program. entry, the search of the master, cylinder 
If the cylinder index in core option has or track index continues. If the index 
been specified, the new key is inserted level pointer did not indicate a dummy 

into the appropriate index in core entry chained entry, a test for an inactive or 
before returning control to the problem dummy end entry is made. If an inactive or 
program. dummy end entry is indicated, the EOF add 


indicator is set on in the DTFIS table, a 
CCW chain is built to read the last track 
index entries (see Figure 50), the channel 
ISAM ADD: WRITE Macro, NEWKEY hart program to bypass the last of the track 
EE-EF index entries is executed», a wait for the 
I/O operation to be completed is made, and 
control returns to the problem program. 


Objective: To perform the necessary Processing continues with the record 
initialization to add a record to a file. following the last key. 
Entry: From the WRITE, NEWKEY macro If an inactive or dummy end entry is not 
expansion. indicated, a test for the presence of a 
: master index is made. If the master index 
Exit: To the problem program via linkage is not present, indicating the cylinder 
register 14. index was just searched, a search of the 
track index is performed, and a return to 
Method: After uy ee ag the pointers to the problem program is made. 
the three parts of the DTFIS table, this 
routine gets the starting address of the ; If the master index is present, a test 
highest level index, builds a CCW chain to is made to determine if the cylinder index 
search the highest level index (see Figure in-core option was specified as an ISMOD 
37) executes the peop eee program and tests macro parameter. If it was not specified, 
for ERREXT=YES. If ERREXT is specified, an EXCP is issued to search the cylinder 
additional error conditions can be returned index, followed by a wait for I/0 
to the problem program, thus giving the completion, an EXCP to search the track 
user greater flexibility in attempting to index, a wait for I/Q completion, and a 
continue processing. The channel program return to the problem program. If the 
is executed and a wait for I/0 completion cylinder index in-core option was 
is made. The routine then tests the F code specified, a search of the track index is 
of the index level pointer to determine if performed, and a return to the problem 
the next search is of the cylinder or track program 1s made. When HOLD=YES is 
index. The F code refers to the index specified in the DTF, any held data tracks 
level just searched. If it was the master and index tracks are freed before control 
index, the next search is on the cylinder returns to the problem program. 
index. See Figure 20 for a description of 
the F code. 
CCW Builder | | 
jCopene) Code?! | CCW Built | Function | 
| 7961 X'69', &KEYARG, CC and SLI, Search key equal or high the master/ | 
| [Key Length lcylinder index. Key supplied by user in | 
| | l\the DTFIS table. | 
| 0Cé6B 1X'08', Pointer to *+16, CC lyre to *+16. | 
( | eles SLI, 5 | | 
| D17B IX"1A', *&Filename.D+8, CC, {Read home address into work area for the | 
| {SLI and SKIP, 5 Jcurrent track index normal entry count | 
| | poueee in the DTFIS table. | 
| 516C [X'92"', "“&Filename.Dt+8, CC |\Read count (multiple track) into work | 
| land SLI, 10 larea for the current track index normal | 
| | Apes count field in the DTFIS table. | 
| 7961 [X'69"', &KEYARG, CC and |Search key equal or high the master/ | 
| |SLI, Key Length lcylinder index. Key supplied by user in | 
| | pete DTFIS table. | 
| O46B 1X'O8', Pointer to *-16, CC ITIC to *-16 | 
| ae SLI, 5 | ! 
| 150C 1X'O6', *&Filename.D+40, OO, |\Read data (next 10-byte index level | 
| ‘ae lpointer) into work area for track index | 


Inormal entry data field in DTFIS table. 
1 2 See Notes 1 and 2 in Figure 58. 


Figure 37. eon: Program Builder for ADD -- CCW chain built to search master cylinder 
index. 
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CCW Builder | 
Control Code? | 


CCW Built Function 


| | 
| | 
| 8C4B X'31', *&Filename.S+3, CC, 5 |Search identifier equal the track index | 
| | lusing the pointer (CCHHR? in the common 
| | iseek/search area. | 
| 066B |X'O08", Pointer to *-8,CC TIC to *-8. | 
| ee SLI, 5 | 
| 106C 1X'06", *&Filename.D, CC and [Read data (COCR record) into the cylinder 
| ae 10 loverflow control record (COCR) area. | 
| 516C [X'92", *&Filename.D+t+8, CC {Read count (multiple track) into work | 
| land SLI, 10 larea for the current track index normal | 
| | lentry count field in the DTFIS table. | 
| 7941 IX"69", &KEVARG, CC, {Search key equal or high the track index. | 
| ee Length feed supplied by user in the DTFIS table. | 
{ 046B ix'Q8", Pointer to *-16, CC ITIC to *-16. | 
| pene SLI, 5 | | 
| 156C IX'O6', "“&Filename.D+40, CC j]Read data (next 10-byte pointer to prime | 
| land SLI, 10 |data record) into work area for track index| 
| | Inormal entry data field in DTFIS table. | 
| 526C iX'92', *“&Filename.Dt+16, CC Read count (multiple track) into work | 
| [and SLI, 10 area for current track index overflow epee 
| | count field in DTFIS table. | 
| 1D0C [X'O06", *#&Filename.W, O00 Read data (10-byte overflow entry) into | 
| 110 Jjrandom/sequential retrieval work area. | 


1 2 See Notes 1 and 2 in Figure 58. 
Figure 38. Channel Program Builder for ADD -- CCW chain built to search track index. 


CCW Builder | ! 


ones Code! | CCW Built | Function | 
| 8C4B X'31", 2&Filename.S+3, CC, 5 |Search identifier equal for the last prime | 
{ ] data record address using pointer, CCHHR, | 
| | in common seek/search area in DTFIS table. | 
| 066B 1X'O8', Pointer to ¥-8, CC TIC to *-8. | 
| [ene SLI, 5 | | 
| 342C 1X'10", *&Filename.D+32, {Write count, key and data of EOF record { 
| [SLI, 10 llocated in current overflow record count | 
| | [field in DTFIS table | 


1 2 See Notes 1 and 2 in Figure 58. 
Figure 39. Channel Program Builder for ADD -- CCW chain built to write new EOF record. 
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CCW Builder | | : 
Control Code? | CCW Built | Function 


8C4B X'31', *“&Filename.S+3, CC, 5 {Search identifier equal th 
ltrack using pointer, one 


| | 
| | 
| | » in common | 
| | ee een area in DT table. | 
| 066B 1X'08"', Pointer to *-8, CC {TIC to *-8. | 
| jane SLI, 5 | | 
| 436C IX'12', *“&Filename.D+24, CC lIRead count field for current prime data | 
| pane SLI, 10 fever | 
{ 7941 1Xx'69", &KEYARG, CC, Key |Search key equal or high the prime data | 
| eee jEabie: Key supplied by user in DTFIS | 
a 
| | | 
| 046B 1X'08"', Pointer to *-16, CC hee to *-16. | 
| ee SLI, 5 | | 
| 1BO02 1X'O6', Address of ITOAREAL+8 |Read data (prime data block) into | 
| 1+KEYLEN, O0, Block Size }IOAREAL+8+Key Length. | 
1 2 See Notes 1 and 2 in Figure 58. 
Figure 40. Channel Program Builder for ADD -- CCW chain built to find prime data 
record 
CCW Builder | [ 
Control Code!| CCW Built | Function 


8C4B X'31", *&Filename.S+3, CC, 5 Search identifier equal the track index 
using pointer, CCHHR, in common seek/ 
search address area in DTFIS table. 


| | 
| | 
| | 
| | 
| | 
| 066B X'O08', Pointer to ¥*-8, CC TIC to *-8. | 
| and SLI, 5 | 
| BO6C X'O5', *&Filename.D, CC and Rewrite COCR located in cylinder overflow | 
| pene 10 eonere record work area in DTFIS table. | 
| E14B }X'B1l', “&Filename.D+t+8, Search identifier Peete ae Cmultiple track) | 
| icc, 5 hee the pointer, CCHHR, in the normal | 
| | aaa count pola: | 
| G66B 1Xx'08", Pointer to *-8, CC |\TIC to *-8. | 
| ee SLI, 5 | | 
| 2A45 1X'OD', Address of [Rewrite track index normal entry located | 
| }IQOAREAL+8, CC, Jat IOAREAL+8. | 
| Need Length + 10 | | 
| E24B [X'"B1"', *&Filename.D+16, CC, 5 |Search identifier equal (multiple track) | 
| | fee the pointer, CCHHR, in the overflow | 
| | re count field. | 
| 066B 1X'08', Pointer to ¥*-8, CC [TIC to *-8. | 
| Land SLI, 5 | | 
| BDCC 1Xx'oS', "*“&Filename.W, CC and |Rewrite overflow entry located in | 
| ies 10 [random/sequential retrieval work area. | 
| 824B 1X'31', *“&Filename.D+16, Search identifier equal for the pointer, | 
| poe 5 ene: in the overflow entry count field. | 
| 066B IX'08', Pointer to *-8, CC |\TIC to *-8 | 
| pane SLI, 5 | | 
| 1D3C }X'06"', *&Filename.W, SLI and }Read data to verify record just written. | 
| ene 10 foe ee is not transferred to main | 
storage. 


1 2 See Notes 1 and 2 in Figure 58. 
Figure 41. craunes Program Builder for ADD -- CCW chain built to rewrite track index 
entry. 
Indexed Sequential Access Method 117 


Licensed Program - Property of IBM 


CCH Builder | | 
Control Code?| CCW Built | Function 


7&Filename.St+3, CC, 5 


Search identifier equal for RO using 
ocaee in common seek/search area 
able. 


| | 
{ | 
| | 
| 066B 1X'08', Pointer to *-8, CC ae to *-8. | 
| fae SLI, 5 | | 
| BO6C IX'05", 2&Filename.D, CC and |Write data (updated COCR) from the | 
| ISLI, 10 cylinder overflow control record (COCR) | 
| | area in the DTFIS table. | 
| E14GB IX'Bit, *&Filename.Dt+8, CC, 5 |Search identifier equal (multiple track) | 
| | the track index using the pointer, CCHHR, | 
| | in the work area for the current track | 
| | peng” normal entry count field. | 
| 066B iX'08"', Pointer to *-8, CC TIC to *-8. | 
| land SLI, 5 | 
| BDCC X'O5', *&Filename.W, CC and Write data Ctrack index overflow entry) | 
| |DC, from the random/sequential retrieval work | 
| | larea. | 
| 814B IX'31", *“&Filename.D+8, CC, 5 |Search identifier equal the track index | 
| | using the pointer, CCHHR, in the work area | 
| | for the current track index normal entry 
| count field. | 
| 066B 1X'08", Pointer to *-8, CC TIC to *-8. | 
| iene SLI, 5 | 
| 1D3C [X'06", “&Filename.W, SLI Read data to verify record just written. | 
| pane SKIP, 10 |Information is not transferred to main | 


istorage. 


1 2 See Notes 1 and 2 in Figure 58. 


e ylind 
overflow control record area in the DTFIS 


jtable. 
aa ae ne ee AEC TE a a a TE 


1 2 See Notes 1 and 2 in Figure 58. 
Figure 43. Channel Program Builder for ADD -- CCW chain built to write COCR. 


Figure 42. enone: Program Builder for ADD -- CCW chain built to write track index 
entry. 

| CCW Builder | | | 
|\Control Code! | CCW Built Function | 
| 8C4B X'31l', *&Filename.St+3, CC, 5 {Search identifier equal for RO using | 
| | pointer, CCHHR, in common seek/search area | 
| | lin DTFIS table. | 
| O66B [X'08", Pointer to *-8, CC lrre to *-8. | 
| pane SLI, 5 | | 
| BO2C poe 22Filename.D, SLI, 10 ee data Cupdated COCR) from the c aa 
| | | 
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CCW Builder | | 


Control Code? CCW Built Function 


| | 
| | 
| °ZFilename.S+3, CC, Search identifier equal using pointer, | 
| | CCHHR,», in common seek/search area in DTFIS | 
| | oe | 
| 066B 1X'O8', Pointer to *-8, CC |TIC to *-8 
| pane SLI, 5 | | 
| AAOZ [IX'OE', Address of IOQAREAL+8, |Read key and data of previously low | 
| 100, Key Length + Record loverflow record into IOAREAL+8. | 
| [Length + 10 | | 
a eee ee eee 
1 2 See Notes 1 and 2 in Figure 58. 
Figure 44, plone Program Builder for ADD -- CCW chain built to read previous overflow 
record. 
CCW Builder | | 
l\Control Code? | CCW Built | Function 


| 
| | 
| 8C4B X'31", *“&Filename.S+3, CC, 5 |Search identifier equal using pointer; | 
| | CCHHR, in common seek/search area in DTFIS | 
| | |jtable. | 
| 066B {X'O08', Pointer ta *-8, CC lrrc to *-8. | 
| pane SLI, 5 | | 
| 2A47 |[X'OD', Address of IOQAREAL+8, |Write key and data of previously low | 
| ICC, Key Length + Record loverflow record located at IOAREAL+8. | 
| oe + 10 | | 
| 8C4B IX'31"', “&Filename.S+3, CC, 5 |Search identifier equal using pointer, | 
| | bea in common seek/search area in DTFIS | 
| | poenes | 
| 066B 1X*'O8", Pointer to *-8, CC las to *-8. | 
| one SLI, 5 | 
| AA37 IX'OE', Address of IOAREAL+8, Leese key and data to verify record just | 
| ISLI and SKIP, Key Length + lwritten. Information is not transferred | 
| |Record Length + 1 Jto main storage. | 


1 2@ See Notes 1 and 2 in Figure 58. 


Figure 45. Channel Program Builder for ADD -- CCW chain built to write previous 
overflow record. 
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| CCW Builder | | | 


ous Code! | CCW Built Function | 
| | 
| 8C4B [X"31", “&Filename.S+3, CC, 5 |Search identifier equal for last overflow | 
| { ieecote address uSing pointer, CCHHR, in | 
| | common seek/search area in DTFIS table | 
| 066B [X'08", Pointer to *-8, CC ITIC to *-8. | 
| pend SLI, 5 | 
| 37C9 [X'1D', Address of IOQAREAL, [Write count, key and data of new overflow | 
| |CC and DC, Key Length + record located at IOAREAL. [ 
| ia Length + 18 | 
| &8C4B IX'31", *“&Filename.S+3, CC, 5 |Search identifier equal for last overflow | 
| | record address using pointer, CCHHR, in | 
| | common seek/search area in DTFIS table. | 
| 066B \X'O8"' Pointer to *-8, CC das to *-8. | 
| fais SLI, 5 | 
| C739 IX"1E", Address of IOQAREAL;, een count, key and data to verify record | 
| ISLI and SKIP, Key Length + pecees just written. Information is not 
| |Record Length + 18 transferred to main storage. | 
1 2 See Notes 1 and 2 in Figure 58. 
Figure 46. panne? Program Builder for ADD -- CCW chain built to write new overflow 
recor 


CCW Builder | 
Control Code? | 


CCW Built Function 


| | 
| | 
| 8C4B X'31'", *“&Filename.St+3, CC, 5 |Search identifier equal for present EOF | 
| | lrecord address minus 1 using pointer, | 
| | {CCHHR, in common seek/search area in DTFIS | 
| | table | 
| 066B a 08', Pointer to *-8, CC TIC to *-8. | 
| 37C8 1X'1D"', Address of IQAREAL, Write count key and data of new record | 
| |1CC and DC, Key Length + to be added located at JOQAREAL. | 
| eee Size + 8 | | 
| 8C4B [X'31", *&Filename.S+3, CC, 5 |Search identifier equal for present EOF | 
| | epee address minus 1 using pointer CCHHR, | 
| : on common seek/search area in DTFIS table. | 
| 066B \Xx'O8", Pointer to *-8, CC {TIC to ¥*-8. | 
| ee nd SLI, 5 | | 
| C738 IX"1E'", Address of IOQAREAL, {Read count, key and data to verify record } 
| Cle and SKIP, Key Length + just written. Information is not | 
| Block Size + transferred to main storage. | 
1 2 See Notes 1 and 2 in Figure 58. 
Figure 47. Channel Program Builder for ADD -- CCW chain built to write over EOF record 


(blocked records 
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CCW Builder | 
Control Code! | 


CCW Built Function 


| | 
| | 
| X'31', *“&Filename.S+3, CC, 5 |Search identifier equal for present EOF | 
| | lrecord address minus 1 using pointer, | 
| | |CCHHR» in common seek/search area in DTFIS | 
| | iia | 
| 066B IX'O8", Pointer to *-8, CC ITIC to *-8. | 
| (ans SLI, 5 | | 
{ 37C8 iX'1iD", Address of IQOAREAL, \Write count, key and data of new record | 
| |CC and DC, Key Length + [to be added, located at IOGAREAL | 
| jeaeek Size + 8 | | 
| &8C4B IX'*31', 2&Filename.S+3, CC, 5 |Search identifier equal for present EOF | 
| | |record address minus 1 using pointer, | 
| |\CCHHR, in common seek/search area in DTFIS | 
| | Sooo | 
| 066B X'08", Pointer to ¥*-8, CC ITIC to ¥*-8. | 
| jens SLI, 5 | | 
| C738 IX"1E", Address of IOAREAL, |}Read count, key and data to verify record | 
| iISLI and SKIP, Key Length + just written. Information is not | 
| }Block Size + 8 transferred to main storage. | 
1 2 See Notes 1 and 2 in Figure 58. 
Figure 48. Channel Program Builder for ADD --~ CCW chain built to write over EOF record 


Cunblocked records) 


| CCW Builder | | | 


or Code}? CCW Built | Function | 
| 8C4B X'31', 2&Filename.S+3, CC, 5 |Search identifier equal for present EOF 
| | [record address minus one using pointer, | 
| | pase in common seek/search area in DTFIS | 
| | joa res | 
| 066B Ixost, Pointer to ¥*-8, CC |TIC to *-8. | 
| land SLI, 5 | | 
| 37AC Ixvape, Address of IOAREAL, hues ee count, key and data of EOF record | 
{ {DC and SLI, 10 flocated at IOAREAL | 


1 2 Gee Notes 1 and 2 in Figure 58. 


Figure 49. Channel Program Builder for ADD -- CCW chain built to write EOF in 
independent overflow area. 
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CCW Builder 


Control Code! CCW Built | Function 


X'31', *&Filename.S+3, CC, 5 


Search identifier equal the track index 
Jusing the pointer (CCHHR) in the common 
lseek/search area. 


A meee §— tastes a 


| | 
| | 
| ! 
| 066B 1X'08', Pointer to *-8, CC ITIC to *-8. | 
| las SLI, 5 | 
| 106C [X'O6", *&Filename.D, CC and [Read data (COCR record) into the cylinder | 
| (ee 10 foverflow control record (COCR) area. | 
| E14B IX'B1l', *&Filename.D+8, CC, 5 |Search identifier equal (multiple track) | 
| | [the track index for the last normal entry | 
| | fusing information in the work area for the | 
| | lcurrent track index normal entry count | 
| | lfield. | 
| 066B 1X'08", Pointer to *-8, CC TIC to *-8. | 
| pane SLI, 5 | | 
| 154C 1C'O6", "*&Filename.D+40, CC, }Read data (last track index normal entry) | 
| 1/10 linto work area for track index normal entry| 
| | pages field. | 
| 526C IX'92', *&Filename.D+16, CC }Read count (multiple-track) of last track | 
| land SLI, 10 lindex overflow entry into work area for thel 
| | |current track index overflow entry count | 
| | peters | 
| 1D6C 1X'06"*, Filename.W, O00, 10 lRead data (last track index overflow entry) | 
| { linto random/sequential retrieval work area. | 


1 2 See Notes 1 and 2 in Figure 58. 


Figure 50. paral Program Builder for ADD -- CCW chain built to read last track index 
entry. 


CCW Builder | | 
{Control Code? CCW Built | Function 


8C4B X'31', *&Filename.S+3, CC, 5 Search identifier equal the overflow chain 
lusing the pointer (CCHHR) in the common 
Ilseek/search area. 


ES I YS RT 


| 
| 
| 
| 
| 
| 
| 
| 


| 
066B X'O08", Pointer to *-8, CC poke to *-8. 
and SLI, 5 
AAO7 X'OE', Address of IOQAREAL+8, |Read key and data of overflow record 
00, Key Length + Record panes IOAREAL+8. 


Length + 10 
a Ae a Ty RR CR hE TAG eR en ne a yf ST, 
1 2 See Notes 1 and 2 in Figure 58. 


Figure 51. Channel Program Builder for ADD -—-- CCW chain built to read overflow record. 


CCW Builder | | 


cone! Code? | CCW Built | Function | 
| 8C4B X'*31', *&Filename.S+3, CC, 5 |Search identifier equal for last prime data| 
| | record address using pointer, CCHHR, in | 
: | lcommon seek/search area in DTFIS table | 
| 066B 1X'08', Pointer to *-8, CC ITIC to *-8. | 
| ke SLI, 5 | | 
| 1B02 \X'06', Address of IQAREAL+ }1Read block into IQAREAL + 8 + KEYLEN. | 
| I\8+KEYLEN, 00, Block Size | 
1 2 See Notes 1 and 2 in Figure 58. 
Figure 52. ene. Program Builder for ADD -- CCW chain built to read last prime data 
cor 
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CCW Builder | 


|!Control Code? CCW Built | Function 


8C4B X'31', 2&Filename.S+3, CC, 3 |Search identifier equal for last prime data 
| lrecord address using pointer, CCHHR, in 
| lcommon seek/search area in DTFIS table. 
| 


| 
| | 
| | 
| 
| 066B X'O08"', Pointer to *-8, CC {TIC to *-8. | 
| and SLI, 5 | | 
| 2AC6 X'OD", Address of IOAREAL+t8, yoo ce key and data of prime data block | 
| CC and DC, Key Length + located at IOAREAL+8. | 
| eres Size | | 
| &8CG4B pom 23Filename.S+3, CC, 5 |Search identifier equal for last prime data] 
| record address using pointer, CCHHR, in | 
| | common seek/search area in DTFIS table. | 
| 066B IX'O8", Pointer to *-8, CC lrre to *-8. | 
| ene SLI, 5 | | 
[ AA36 IX'OE', Address of IOQAREAL+8, eee key and data to verify record just | 
| ISLI and SKIP, Key Length + Iwritten. Information is not transferred | 
| I\Block Size {to main storage. | 


1 2 See Notes 1 and 2 in Figure 58. 


Figure 53. Channel Program Builder for ADD -- CCW chain built to write block of prime 
data records and verify. 


| CCW Builder | | | 


eoeeee Code! CCW Built | Function | 
| 8C4B X'31', *&Filename.S+3, CC, 5 Search identifier equal for last track | 
| | lindex address using pointer, CCHHR, in | 
| | pooaen seek/search area in DTFIS table. | 
| 066B |X'08', Pointer to *-8, CC |TIC to x*-8. | 
| land SLI, 5 | 
| 2AG45 ee ips, Address of BUAR Erne. Write key and data of track index | 
| ia Key Length + 10 pnokmed entry located at IQAREAL+8. | 
| E24B IX'Bl', *“&Filename.D+16, CC, 5 |Search identifier equal (multiple track) | 
| | [the track index for the last over flow | 
| Jentry using the count for the current | 
| | ibaa index overflow entry. ! 
| 066B henee: Pointer to *-8, CC toe to x*-8. | 
| jane SLI, 5 | 
| 2845 \X'"OD", Address of WORKL, CC, IWrite key and data of track index | 
| ieee Length + 10 eeeece entry located at WORKL. | 
| 824B IX"'31', *&Filename.D+16, CC, 5 |Search identifier equal the track index | 
| | l\for the last overflow entry using the | 
| | {count for the current track index overflow] 
| | a | 
| 066B ae Pointer to *-8, CC ITIC to *-8. | 
| pane SLI, 5 | | 
| A&35 IX"OE', Address of WORKL, Read key and data to verify record just { 
| Pere and SKIP, Key Length + 10 |[written. Information is not transferred | 


—_ 


lto main storage. 
crs a a tA a gh nes J 


1 2 See Notes 1 and 2 in Figure 58. 


Figure 54. enenoe? Program Builder for ADD -- CCW chain built to write track index 
entry. 
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CCW Builder | | 
I!Control Code? |] CCW Built | Function 


| 

| 8C4B X'31', *&Filename.S+3, CC, 5 |Search identifier equal the master/ 

| lcylinder index using the pointer, CCHHR, in 
| | Jthe common seek/sSearch area in the DTFIS 

| | Sabie 

| 066B IX'08', Pointer to ¥*-8, CC ee to *-8. 

: ane SLI, 5 | 

| 150C \X'O06", *&Filename.D+40, Read data (Cindex entry) into work area 

| loo; 0 for track index normal entry data field. 


1 @¢ See Notes 1 and 2 in Figure 58. 


Figure 55. Channel Program Builder for ADD -- CCW chain built to read index entry. 


CCW Builder | | 
Control Code! | CCW Built | Function 


| 

| 

| 8C4B X'31', *&Filename.St+3, CC, 5 |Search identifier equal the master/ 

| | cylinder index using pointer, CCHHR, in 
| | |common seek/search area in DTFIS table. 
| 066B |X'O8', Pointer to *-8, CC [TIC to *-8. 

| fend SLI, 5 | 

| 2A45 1X'OD', Address of IOAREAL+8, |Write key and data of master/cylinder 

| co Key Length + 10 oer entry located at IOAREAL+t8. 

| 8C4B (X'31', *“&Filename.S+3, CC, 5 |Search identifier equal the master/ 

| lcylinder index using pointer, CCHHR, in 
| | ones seek/search area in DTFIS table. 
| AA35 IX'OE', Address of IOAREAL+8, [Read key and data to verify record just 
| {SLI and SKIP, Key Length lwritten. No information is transferred 
| [+ 10 jto main storage. 


1 2@ See Notes 1 and 2 in Figure 58. 


Figure 56. Channel Program Builder for ADD -- CCW chain built to write index entry. 


CCW Builder | | 
l|\Control Code! CCW Built | Function 


8C4B X'31', “&Filename.S+3, CC, 5 |Search identifier equal the track index 
using the pointer, CCHHR, in the common 
lseek/search area in the DTFIS table. 


| 

| 

| | 

| | 

| 066B 1X'08', Pointer to *-8, CC ITIC to x*-8. 

| fas SLI, 5 | 

| BO6C IX'O5', “&Filename.D, CC |Write data (COCR) from the cylinder 

| land SLI, 10 loverflow control record work area in DTFIS 
| | igs e. 

| E24B IX'Bl', “&Filename.D+16, }Search identifier equal (Cmultiple-track } 
| lcc, 5 lthe track index using the pointer, CCHHR, 
| | lin the work area for current track index 
| | lela entry count field. 

| 066B 1X'08", Pointer to *-8,; [TIC to ¥*-8. 

| ree and SLI, 5 | 

| AA35 IX'OE', Address of IOQAREAL+8, |Read key and data to verify record just 

| ISLI and SKIP, Key Length fs a Information is not transferred 
| {+ 10 to main storage. 


1 ¢ Gee Notes 1 and 2 in Figure 58. 


Figure 57. Channel Program Builder for ADD -- CCW chain built to write track index 
overflow entry. 
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[Note ls: | 


| 

|The first character of the control code references an operation code at IJHCSTRI. | 
|The second character of the control code references a data area at IJHAHRAA. | 
pene third character of the control code references the following information: | 
jeontro} Character CCW Flag Field Meaning : 
| 0 Xx'oao' End of CCW Chain | 
| 2 X'20'" SLI (Suppress Length Indicator) | 
| 3 X'30! SLI and SKIP (Suppress Data Transfer) | 
| G X'GO! CC (Command Chaining) | 
| 6 X'60"' CC and SLI | 
| 7 X"'70' CC, SLI, and SKIP : | 
| A X'AOG! SLI and DC (Data Chaining) | 
| C x'co' CC and DC | 
|The fourth character of the control code references a byte count (length) field at | 
\ebeeeeercetice | 
| Hote 23 | 
|&Filename = DTF name supplied by us | 
}&Filename.X = X is suffix supplied a “DTFIS for unique DTF labels. | 


Figure 58. Channel Program Builder for ADD 


SSBINDEX Read Cylinder Index Into Storage, 
Charts FA-FB 


Objective: To read all or part of the 
cylinder index into main storage. 


Entry From the 
module CISMOD). 


Method: 


indexed-sequential logic 


To the problem program. 


This phase determines the number of 
cylinder index entries that can be read 
into main storage at one time. Each 
cylinder index entry consists of a key area 
and a data area. The key area contains the 
highest key associated with the cylinder, 


and its length is the same as that 
specified for logical data records in the 
DTFIS entry KEYLEN. The data area is ten 


bytes long and contains the pointer to the 
track index for that cylinder. See Figure 
20 for the format of this 10-byte pointer. 
When this phase reads the cylinder index 
entry into main storage, only six bytes of 
the 10-byte pointer are retained. he last 
four bytes of the pointer to the track 
index are the same for all entries in the 
cylinder index. Therefore, only the first 
six bytes of the pointer are required for 
processing. 


If it is the first time through this 
B-transient phase, the key of the first 


core index entry is set to QO. If it is not 
the first time through this phase, the key 
of highest entry minus 1 that was 
previously read into main storage is moved 
to the key area of the first core index 


entry. A test is made to determine if the 


Indexed Sequential Access Method 


Notes. 


index skip option was specified in the DTF 
entry. If the index skip option was 
specified, any cylinder index entries 
preceding the one needed to process a given 
key are not read into main storage. In 
order to skip the cylinder index entries 
preceding the one needed to process a given 
key, a CCB to read the cylinder index is 
built along with a string of CCWs. Figure 
59 gives a description of the CCW string. 


This transient then executes the channel 
program and determines if the address of 
the first cylinder index entry read is the 
address of the required entry (SKEH, TIC, 
NO-OP). If it is», there are no cylinder 
index entries to be skipped and the 
cylinder index is then read into main 


storage from that point. If the addresses 
are not the same (RDID, SKEH, TIC; J» a 
check is made to determine if this is a 
dummy chained entry. 

If it 1s a dummy chained entry 
Cindicating the end of the cylinder), its 


address points to the first track of the 
next cylinder containing the cylinder 
index. This phase subtracts 1 from the 
record number of the dummy chained entry to 
get the preceding cylinder index entry, 
moves the chain address to the next 
cylinder index entry to be read (in the 
DTFIS table), and reads the cylinder index 
into main storage starting with the entry 
preceding the dummy chained entry. 


If it is not a dummy chained entry, a 
test is made to determine if the required 
entry is the first record on the first 
track of the cylinder. 
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If it is», this phase sets up to read the 
cylinder index into main storage starting 
with entry preceding the dummy chained 
entry for the previous cylinder. If the 
required entry is not the first record on 
the first track of the cylinder, a test is 
made to determine if the record number of 
the cylinder index entry is l. 


If it is 1, the track number is 
decreased by 1 and the record number is 
updated to the maximum record number for 
the cylinder index track. The cylinder 
index is read into main storage starting 
with the last record on the preceding 
track. If the required cylinder index 
record number is greater than 1, the record 
number is decreased by 1, and the cylinder 
index is read into main storage starting 
with the preceding entry on the track. 
Each time a cylinder index entry is read, 
the number of available index entries in 
main storage is decreased by l. 


If the index skip option was not 
specified in the DTF, this phase decreases 
the number available core index entries by 


CCW Built 


07', Address of cylinder index entry, 
anmand Chaining, 


"31', Address of cylinder index entry, 
ommand Chaining, 


08', Pointer to *-8, —» -. 


Go 

X 

C 

a 

X"69", &KEVYARG, Command Chai and 
C 

x' 

x 

X 


ining 
uppress Length Indicator, KEYLEN 
Key Length). 


08', Pointer to *+16, -, —-. 


EE ES TS SS SY NR: i SS SSNS SSS eS 


03', -,», Suppress Length Indicator, l. [No-oP. 

'92', IDOFHIT, Command Chaining, 8. eee count (Cmultiple-track) (RIDM) into 
IDOFHIT, 8S-byte area for record found on 
|SIDE. 

X'69" &KEYARG, Command Chaining and ae key equal or high (SKEH) the 

Suppress Length Indicator, KEYLEN lcylinder index. 

(Key Length). 

X'O08', Pointer to *-165, -» -. eee to *-16. 

X'O6', POINTER, End of Chain, 10. {Read data portion of cylinder index entry 
1CRD) into POINTER, 10-byte area for 
lpointer to track index. 

ee eae ee ee a ere ee ee ee ee a 


2% These two core index entries contain 
dummy entries. The first dummy entry at 
the beginning of the cylinder index storage 
area contains either a key of all zeros (Cif 
this is first time the cylinder index has 
been read into main storage) or it contains 
the key of the last cylinder index entry 
read into main storage. The second dummy 
entry is located at the end of cylinder 
eee storage area and has a key of all 

Ss. 


Before a part or all of the cylinder 
index is read into main storage, a test is 
made to determine how many cylinder index 
records can fit in the area available. A 
CCB and a CCW chain are built to perform 
the actual read operation. Figure 59 gives 
a description of the CCW chain. The 
channel program is executed and the number 
of core index entries is decreased by the 
number of records read. The cylinder index 
is read into main storage until either the 
end of the cylinder index is reached or 
there are no more core index entry 
positions. 


| Function 

Long seek. 

lSearch identifier equal (SIDE) the 
[cylinder index. 

TIC to *-8. 

}Search key equal or high (SKEH) the 
Icylinder index. Key supplied by user in 
re DTF table. 

TIC to *+16. 


EE EE EY EE A eS SS Se Aw Se ce 


Figure 59. CCW chain built by $SBINDEX to skip cylinder index entries preceding the one 


to process a given key. 
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| CCW Built | Function | 


| 
|Xx'O7', Address of cylinder 
‘Command Chaining, 


|X'31", Address of cylinder 
|\Command Chaining, . 


| 
Poe 
|[X'OE', Address of cylinder index e 


n 
|main storage (multiple of key lengt 
|Command Chaining, Key Length + 10. 


index entry», 
index entry», 


Pointer to *-8), -» -. 

try 
h + 
CCW chain built by $$BINDEX to 


Figure 60. 


RANDOM: READ Macro, KEY 


ISAM RETRVE: 
Chart FC 


Objective: To perform the random retrieval 
function for an indexed sequential file by 
searching the indexes to determine the 
track on which the desired record is 
stored. 


Entry: From the READ, KEY macro expansion. 


Exit: To the problem program via linkage 
register 
Method: This routine first tnitiali Ss 


ze 
pointers and status bits in the DTFIS 
table. It then constructs the CCW chain to 
search the master or cylinder index (see 
Figure 61). It determines the yeorae 
level index (master or cylinder) bei 
used, and tests for ERREXT=YES. If ERREXT 
is specified, additional error conditions 
can be returned to the problem program, 
thus giving the user greater flexibility 
attempting to continue processing. This 
routine then searches the highest level 
index to get the address of the next index 
to be searched. 


A test of the F code from the index 
level pointer is then made to determine if 
the next search is of the track index (see 
Figure 20). The F code refers to the index 
level just searched. If the master index 
was just searched, the next search 18 on 
the cylinder index, If the next search 
not on the track index, the routine gets 
the index entry type and determines the 
routine to process that type. 


in 


is 


If the entry type is a normal entry, the 
routine returns to search the next index. 
If the entry type is a dummy end entry or 
an inactive entry, the routine branches to 
an error routine to set a no-record-found 
flag in the DTF table and to return to the 
problem program. If the entry is a dummy 
chained entry,s the routine returns to 
search the index using the address supplied 
by the 10-byte index level pointer. 
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RD etd Sei RR es A SO SE ha 


Long Seek. 


S 
Cc 
T 
R 
e 


read the cylinder 


earch 
ylinder 


Ic to x*-8. 


ead key and data (RKD) of cylinder 
ntry 


identifier equal (SIDE) the 


index. 


index 
into storage. 


index into storage. 


When the next search is found to be on 
the track index, a test is made to 
determine if the track index takes up one 
track or more. If the track index does not 
require a full track, the routine builds a 
new CCW chain to search the track index 
(see Figure 62) This routine then issues 
the EXCP and Sve7 (WAIT) to search the 
track index. If the over/under seek 
routine is not needed, it returns to the 
problem program. 


TSAM RETRVES RANDOM: WAITFE Macro, Charts 


Objective: To ensure that the last EXCP 
issued has been completed and that the 
condition is normal. If the operation 
read, to locate the specified record a 
complete the transfer of data to the 
area specified by the DTFIS entry IQA 
and to the specified work area if the 
entry WORKR is included in the file 
definition. If the operation is a wr 
the objective is to return control to 
problem program. 


Art 


Entry: From the WAITF macro expansion. 


Exit: To the problem program via linkage 
register 14. 


Method: This routine first tests for 
ERREXT=YES. If ERREXT is specified, 
additional error conditions can be returned 
to the problem program, thus giving the 
user greater flexibility in attempting to 
continue processing. After initializing 
pointers to the DTFIS table, this routine 
tests the status byte in the DTF table, to 
determine if the condition so far is 
normal. If an abnormal condition exists, 
control returns to the problem program. 


If the condition is normal, the routine 
issues a WAIT to determine if the EXCP 
issued by the READ or WRITE routines has 
been completed, and also tests for errors. 
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Then, if the operation is a WRITE>, this 
routine returns control to the problem 
program. 


If the operation is a READ, this routine 
must complete the read operation by moving 
the data to the I/40 area. If first moves 
the address of the track in which the 
desired record is stored to the seek/sea 
area, and initializes pointers to KEYARG 
and the I/0 area. It also gets the 
relative key location and key length. 


rch 


The routine then gets the index entry 
type (F code) from the search address and 
determines the routine to process that 
type. If the entry 1S a normal entry on a 
unshared track, a new CCW chain is built t 
find the record in the prime data area. 
(see Figure 63). If blocked records are 
specified, the CCW command code is modified 
to search high or equal. An EXCP and WAI 
are issued to find the record and read th 
block into the I/Z0 area. If records are 
unblocked, the record 1S moved into WORKR 
if specified, and control returns to the 
problem program. If records are blocked, 
this routine tests to determine if KEYARG 
is less than the key in the first logical 
record. If it is, the record has not been 
found, and the corresponding bit is set on 
in the DTF table. Otherwise, the 
corresponding key is found within the block 
and the routine moves the block to WORKR, 
if specified. Control then returns to the 
problem program. 


> 


For a normal entry on a shared track, 
the routine decreases the record number in 
the search address by 1, and builds a new 
CCW chain to find records on a shared track 
(see Figure 64). Processing continues as 
in the routine to process a normal entry on 
an unshared track. 


If the entry is an overflow end entry or 
an overflow chained entry, this routine 
first constructs a CCW chain to search the 
overflow chain (see Figure 65). An EXCP 
and WAIT are issued to locate the record in 
the overflow chain. A test 15S made to 
determine if the desired record has been 
found. If it has not been found, the 
routine tests for an overflow end entry. 

If it is an overflow end entry, the 
no-~record-found bit is set on in the DTF 
table. If it is not an overflow end entry, 
the sequence link field 18S inserted in the 
seek/search address, and the overflow chain 
is searched again. 


If the record has been found, overflo 
bits are set on in the DTF table, and th 
non-first overflow record count is 
increased by 1. The logical record is 
moved to WORKR, if specified. Control 
oo to the problem program via register 
14. 


If the entry is a dummy end entry or an 
inactive entry, the routine sets a 
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no-record-found bit on in the DTF table, 
and returns control to the problem program. 


ISAM RETRVE, RANDOM: WRITE Macro, KEY, 
Chart FH 


Objective: To perform random retrieval 
output for an indexed sequential file. 
Entry: From WRITE, KEY macro expansion. 


Baits To the problem program via register 


Method: This routine first sets the write 
bit on in the DTFIS table. It then tests 
for an uncorrectable DASD error, wrong 
length record error, or no record found 
error. If any of these errors exist, the 
no-record-found bit is set on in the DTF 
table, and control returns to the problem 
program. 


If there are no errors, the status byte 
in the DTF table is reset, and pointers to 
the DTF table are initialized. This 
routine then gets the count field of the 
record as saved by the READ routine, the 
address of WORKR, and the address of the 
logical record within the [I/0 area. The 
record, or block of records, is moved to 
the I/70 area from WORKR, if specified. The 
CCW chain to write records is then built 
(see Figure 66). 


If the entry to be written is not an 
overflow entry, the byte count field in the 
write and verify CCWs is modified to the 
block length from the DTF table. This 
routine then issues the EXCP to write the 
record, and returns control to the problem 
program without issuing a WAIT. The WAIT 


function is left to the WAITF macro, which 
must be issued before the user can continue 
processing. 


ISAM RETRVE, RANDOM: FREE Macro, Chart FK 


Objective: To free a held track if the 
track hold option has been specified. 


Entry: From the FREE macro expansion. 


Exit: To the problem program via linkage 
register 


Method: This routine determines whether the 
track hold option has been Specified in the 
DTF. If so, both the held data track and 
the applicable held index track are 
released. All tracks are released by SVC 36 
and control returns to the problem program. 
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CCW Builder | | 


110C X'O6"', “&Filename.W, OO, 10 Read data (10-byte index level pointer) 
into random/sequential retrieval area in 
| DTFIS table. 


eoneres Code! | CCW Built | Function | 
| 7461 X*69"*, &KEYARG, CC and Search key equal or high the master/ | 
| ISLI, Key Length [cylinder index. Key supplied by user in | 
| | [the DTFIS table. | 
| OC6B X'Q8"', Pointer to *+16, CC TIC to *+16. | 
| land SLI, 5 | ! 
| D17B X'1A', “&Filename.W, CC, Read home address into random/sequential | 
| ISLI, and SKIP, 5 retrieval work area in DTFIS table. | 
| 536C X'*92', &IOAREAR, CC and Read count (multiple track) into IOAREAR. | 
| ISLI, 10 | 
| 7461 X'69", KEYARG, CC and SLI, Search key equal or high the master/ | 
| {Key Length jcylinder index. Key supplied by user in | 
| | [DTFIS table. | 
046B X'08", Pointer to *-16, CC TIC to *-16. | 
| land SLI, 5 | 
| | 
| | 
| | 


1 - See Notes 1 and 2 in Figure 67. 


Figure 61. Channel Program Builder for Random Retrieval -- CCW chain built to search 
master cylinder index. 


CCW Builder | | 


110C X'06', *&Filename.W, OO, 190 Read data (10-byte index level pointer) 
| into random/sequential retrieval area in 
| [DTFIS table. 


eee Code! | CCW Built | Function | 
| D36B X'"1A", &IOAREAR, CC and SLI, 5 |Read home address into IOAREAR. | 
| 9461 X"E9"', &KEYARG, CC and SLI, Search key equal or high (multiple- | 
| |Key Length track) track index. Key supplied by user | 
| | in DTFIS table. | 
| 066B X'08', Pointer to *-8, CC TIC to *-8. | 
| land SLI, 5 | 
| | 
| | 
| | 


1 2 See Notes 1 and 2 in Figure 67. 


Figure 62. Channel Program Builder for Random Retrieval -- CCW chain built to Search 
track index. 
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| CCW Builder | | | 


Control Code! CCW Built | Function 

7461 X'69"', &KEYARG, CC and Search key equal or high in prime data 
ISLI, Key Length Jarea. Key supplied by user in DTFIS 
| Jtable. 

OC4B X'08', Pointer to *+16, TIC to *+16. 
cc, 5 

Di7B X'1A', *&Filename.W, CC, Read home address into random/sequential 
ISLI, and SKIP, retrieval work area in DTFIS table. 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| GO6C 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


SE ES SS A GS NS ay ge SE SA AY ne 


X'12', "&Filename.$+3, CC Read count into common seek/search 
land SLI, 190 area in DTFIS table. 
6461 X'29" or X'69", &KEVYARG, If records are unblocked, search key 
or 7461 ICC and SLI, Key Length lequal the prime data area. If records 
| are blocked, search key equal or high in 
| prime data area. Key supplied by user in 
| |DTFIS table. 
044B X'O8', Pointer to *-16, TIC to *-16. 
}cc, 5 | 
1302 X'O06", &IOAREAR, OO, Block Read data (block) containing starting 
| Length record into IQAREAR. 
1 2 See Notes 1 and 2 in Figure 67. 
Figure 63. Channel Program Builder for Random Retrieval -- CCW chain built to find 
record in prime data area (CunsShared track). 
CCW Builder | 
Control Code?| CCW Built Function 


| | 
| | 
| 804B X'31', *&Filename.S+3, CC, 5 Search identifier equal the prime data | 
| | Jjarea using the pointer (CCHHR) in the | 
| | lcommon seek/search area in the DTFIS 
| { Jtable. | 
| 064B X'O08', Pointer to *-8, CC, 5 TIC to *-8. | 
| 406C X'12', *%&Filename.S+3, CC Read count into common seek/search ] 
| Jand SLI, 10 larea in DTFIS table. | 
| 6461 X'29"' or X'69', &KEYARG, If records are unblocked, search key | 
| or 1CC and SLI, Key Length lequal the prime data area. If records | 
| 7461 | lare blocked, search key high or equal the| 
| | lprime data area. Key supplied by user in] 
| | IDTFIS table. | 
| 044B X'O08", Pointer to *-16, CC, 5 TIC to *-16. | 
| 1302 X'O06", &IOAREAR, OO, Read data (Cblock) containing record | 
| IBlock Length linto IOAREAR. | 
1 2 See Notes 1 and 2 in Figure 67. 
Figure 64. Channel Program Builder for Random Retrieval -- CCW chain bnilt to find 


record in prime data area (shared track). 
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i} 
. 
e 
a 


CCW Builder | 


{Control Code? | CCW Built Function 


804B X'31', *&Filename.S+3, CC, 5 Search identifier equal the overflow 
| chain using the pointer (CCHHR) in the 
| common seek/search area in the DTFIS 
| ltable. 
064B X'08', Pointer to *-8, CC, 5 TIC to *-8. 
6461 X'29', &KEYARG, CC and Search key equal the overflow chain. 
ISLI, Key Length {Key supplied by user in DTFIS table. 
116C X'06'", 2&Filename.W, SLI, 10 Read data (10-byte sequence-link field) 


into random/sequential retrieval area in 
DTFIS table. This CCW is executed when 
[the required overflow record is not found 
lin the overflow chain. 


I i NG SE SS Si TS OS eT A ES A ST A oe SN SS SY Sa 


NT TS A TE lS EE TS a a LE Te A enh 


1303 X'O6', &IGAREAR, OO, Read data (sequence-link field plus 
|Record Length + 10 logical record) into IQAREAR. This CCW 
| is executed when the matching key is 
| found in the overflow chain. 


1 @ See Notes 1 and 2 in Figure 67. 


Figure 65. Channel Program Builder for Random Retrieval -- CCW chain built to find 
record in overflow chain. 


| CCW Builder | | | 


Control Code! | CCW Built Function 


al prime data area 
in common seek/ 
table. 


804B X'31', *&Filename.S+3, CC, 5 Search identifier eq 
| using pointer (conn 
F 


wet 


search area in 


| | 
| | 
| | 
| | 
| : 
| X'08', Pointer to *-8, CC, 5 TIC to *~8. | 
| B3C3 X'O5S", &IOAREAR, CC, Record Write data from IQAREAR. | 
| [Length + 10 | 
| 804B X'31', *“&Filename.St3, CC, 5 Search identifier equal the prime data | 
| area, using pointer CCCHHR) in common | 
| | seek/search area in DTFIS table. | 
| 064B X'O8', Pointer to *-8, CC, 5 TIC to *-8. | 
| 1333 X'O6', &IGAREAR, SLI and Read data to verify record just written. | 
| SKIP, Record Length + 10 l|Information is not transferred to main | 


| 
| |Istorage. 
(Ze a a es 


1 2 See Notes 1 and 2 in Figure 67. 


Figure 66. eben? Program Builder for Random Retrieval -- CCW chain built to write 
record. 
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he first character of the control code references an operation code at IJHCSTRI. 


| 
[ 
data area at IJHCASAD. | 
| 


he third character of the control code references the following information: 


| 

| T 

ie second character of the control code references a 
| 


Control Character CCW Fla Field Meanin 
| 0 x 00." End of CCW chain | 
| 2 X'20" SLI (Suppress Length Indicator ) } 
| 3 X'30" SLI and SKIP (Suppress Data Transfer) | 
| 4 X'40"' CC €Command Chaining) | 
| 6 X'6O!° CC and SLI 
| 7 X'70° CC and SLI and SKIP | 
| C X'co' CC and DC (Data Chaining) | 
| | 
[The fourth character of the control code references a byte count (length) | 
fica at IJHCRESZ. | 
| Note 2: | 
[&Filename = DTF name supplied by use | 
1&Filename.X = X is suffix supplied by DTFIS for unique DTF labels. | 


Figure 67. 


ISAM RETRVE, SEQNTL: ESETL Macro, Chart GA 


Objective: To write the last record if 
necessary, and reset the status byte in the 
DTFIS table. 


Entry: From the ESETL macro expansion. 


Exit: To the problem program via linkage 
register G. 


Method: After initializing pointers to the 
DTFIS table, this routine sets the status 
byte in the DTFIS table to 0. A test is 
then made to determine if the PUT issued 
bit ts on in the retrieval byte of the DTF 
table. If it is on, the last block of 
records is written. A test for IOAREA2=YES 
is then made. If IOAREA2 is specified as 
an ISMOD macro parameter option to allow 
overlapping of I/0 with processing, a bit 
is set in the DTF table to indicate the 
first record is being processed and a wait 
for I/7Q completion is made. If HOLD=YES is 
specified, an SVC 36 releases any held 
tracks. Control then returns to the 
problem program. 


ISAM _RETRVE, SEQNTL: GET Macro, Charts 
GB-GE 


Objective: To perform the sequential 
retrieval input function for an 
indexed-sequential file. 


Entry: From the GET macro expansion. 


Exit: To the problem program via linkage 
register 14. 


Method: This routine initializes pointers 
to the DTFIS tables and then tests for 
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IOAREA2=YES. If IOAREA2 is not specified 
as an ISMOD macro parameter option, a test 
is made to determine if the last record 
read was in the overflow area. If the last 
record read was in the overflow area, the 
contents of the sequence-link field is 
moved to the seek/search area and a test is 
made to determine if the end of the 
overflow chain has been reached. If the 
last record read was in the overflow area 
and HOLD=YES has been specified, the track 
is released, then the overflow record is 
read and addresses are saved. If HOLD=YES 
is specified, the index track and data 
track are held during update procedure. 

The index track is then released. The 
record is then moved to WORKS, if 
specified, and control returns to the 
problem program. 


If the end of the chain has been 
reached, the current DASD address is 
updated to the next track and the next 
record 18s read. The record is moved to the 
work area if specified, addresses are 
Saved, and control returns to the problem 
program. 


If the last record read was not in ee 
overflow area, the routine determines 
all records in the block have been 
processed. If all the records in the block 
have not been processed, the [/0 area 
pointer is updated to the next logical 
record. If that record is not a padding 
record, it is moved to the work area,» if 
specified, addresses are saved, and control 
returns to the problem program. If it isa 
padding record, the EOF indicator is set in 
the DTFIS tables and control returns to the 
problem program. 


If all records in the block have been 
processed, a check iS made to determine if 
the PUT macro has been issued. If it has, 
the record is written. 
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A test is made to determine if the end 
of the track has been reached. If it has 
been reached, the track index is searched 
to find the next track index entry. The 
current track index record number 1 
DTF table is then updated, and a test is 
made to determine if there 1s any overflow 
record indicated in the track index entry 
just read. If the track index entry 
indicates an overflow record is present, 
that overflow record is reads and moved to 
the work area if specified. Control 
returns to the problem program. 


If there is no overflow record indicated 
in the track index entry, he current 
address is updated by 1, and the record is 
read and moved into the work areas if 
specified. Control returns to the problem 
program. 


If IOAREA2 has been specified to allow 
overlapping of I/0 with processing,» a test 
is made to determine if the last record 
read was in the overflow area. If the last 
record read was in the overflow area» a 
test is made to determine if the record 
being processed by the uSer is an overflow 
record. If it is an overflow record, a 
wait for I/0 completion 18 made, the next 
available I/0O area address is obtained, the 
current record address is saved, and a test 
is made to determine if the first record is 
being processed. 


If the first record 18 being processed; 
the overflow record is read, its address is 
saved in the DTF table and the record is 
moved to the work area, if specified. 
Control then returns to the problem 
program. 


If the first record is not being 
processed, the address of the next overflow 
record is moved to the seek/search address 
and a test is made to determine if the end 
of the overflow chain has been reached. If 
the end has not been reached, the overflow 
record 1s read, and addresses are saved. 

If HOLD=YES is specified, an SVC 36 
releases any held tracks. Control then 
returns to the problem program. 


If the end of the overflow chain has 
been reached, the current disk address is 
updated to the next track and the next 
record 18S read. The record is moved to the 
work area if specified, addresses are 
saved, and control returns to the problem 
program. 


If the last record was not an overflow 
record and the current record is not an 
overflow record, this routine determines if 
all the records in the block have been 
processed. If all records in the block 
have not been processed, the I/70 area 
pointer is updated to the next logical 
record and the record number is updated by 
1. If the next logical record is not a 
padding record, it is moved to the work 
area, if specified, addresses are saved an 
control returns to the problem program. I 
it is a padding record, the EOF indicator 


d 
f 


t in the DTF table and control returns 
e problem program. 


When all the records in the block have 
been processed, a check 18 made to 
determine if the PUT macro has been issued. 
If the PUT macro has been issued, the 
record is written. A test for the presence 
of two I/O areas is then made. If the 
presence of two I/0 areas is indicated in 
the DTF table, a test is made to determine 
if the first record 1s being processed. If 
the first record is not being processed> a 
wait for I/0Q completion is made and the 
record address is saved in the DTF table. 


A test is made to determine if the end 
of the track has been reached. If the end 
of the track has been reached, the track 
index is searched to find the next track 
index entry. The current track index 
record number in the DTF table is then 
updated, and a test is made to determine if 
there is any overflow record indicated in 
the track index entry just read. If the 
presence of an overflow entry is indicated, 
and there are two I/0 areas present, this 
routine tests to determine if this is the 
first record. If it is not the first 
record, the record counter is set to l. 

The overflow record address 18 moved to the 
seek/search address, and the overflow 
record is read and moved to the work area, 
if specified. Control then returns to the 
problem program. 


If there is no overflow record indicated 
in the track index entry», the current 
address is updated by 1, the next record is 
read and moved to the work area, if 
specified, and control returns to the 
problem program. 


ISAM RETRVE SEQNTL: PUT Macro Chart GF 


Objective: To perform the sequential 
retrieval output function for an indexed 
sequential file. 


Entry: From the PUT macro expansion. 


Exit: To the problem program via linkage 
register 14. 


Method: After initializing pointers to the 
DTFIS table, this routine tests whether a 
GET has been issued. If a GET has not been 
issued, there is an SVC 50 (Cerror). 
Otherwise, the GET issued switch is turned 
off and the output bit in the retrieval 
byte in the DTFIS table is turned on. The 
record is moved from the work area to the 
I/O area, and the output bit in the 
retrieval byte is set off. 


If the record is unblocked, or is in the 
overflow area, this routine writes the 
record and returns control to the problem 
program. If the records are blocked, this 
routine sets the bit in the retrieval byte 
to indicate that the PUT macro has been 
issued for this record, and returns control 
to the problem program. 
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The GET macro routine causes the block to 
be written on DASD when it determines that 
all records in the block have been 
processed 


ISAM RETRVE, SEQNTL: SETL Macro, $$BSETL, 
Charts GG-GL 


Objective: To initialize for sequential 
retrieval based on information supplied by 
the user in the SETL macro. 


Entry: From the SETL macro expansion. 
Exit: To the problem program. 


Method: This logical transient first 
validates the limits of the DTFIS table and 
IQOAREAS to ensure that they lie within the 
partition. If HOLD=YES has been specified 
in the DTF, $$BSETLI is fetched to perform 
the SETL macro functions. If track hold 
has not been specified, $$BSETL then 
initializes for sequential retrieval based 
on the information supplied by the uSer in 
the SETL macro. The SETL macro specifies 
the type of reference used to identify the 
first record to be processed. The types of 
reference are: 


° KEY. Key of starting record in the 
file. 

° GKEY. Location of starting record in 
the file, identified by a record key 


Within a desired group. The user 
supplies a key that identifies the high 
order bytes of the required group of 
keys. For example, a GKEY specification 
of D6é430000 would permit file processing 
to start at the first key containing 
D643XXXX, regardless of the characters 
represented by the Xs. 


°* BOF. 


e ID (MBBCCHHR). Location of starting 
record in the prime data area. 


Beginning of the logical file. 


If sequential retrieval is to begin with a 
record associated with a particular key 
(KEY), the key of the beginning record must 
be placed in the field defined by the DTFIS 
entry KEYARG before issuing the SETL macro. 
This phase searches the master index Cif 
present), cylinder index and track index 
until it finds the track index entry 
associated with the specified key. It 
determines whether the record with the 
desired key 1S on a Shared or unshared 
prime data track or in the overflow area. 


If the record is on a shared track, the 
search is initialized to begin after the 
remainder of the track index has been 
bypassed. If the record is on a prime data 
track and records are unblocked, the track 
index overflow entry address associated 
with the desired record is calculated and 
stored in the DTFIS table, and the track is 
searched equal for the desired record. If 
the record is not founds a no-record-found 
indicator is set in the DTFIS table 
(Filename.C). 


If the file contains blocked records, 
the track is searched equal/high for the 
desired block. The user must supply Cin 
the DTFIS entry KEYLOC) the position of the 
key field in the data record. The block is 
then searched. When the record with the 
matching key is found, its address is saved 
in the DTFIS table and control returns to 
the problem program. If the record is not 
found, the no-record-found indicator is set 
in the DTFIS table (Filename.C). 


If the record with the desired key is in 
the overflow area, the track index normal 
and overflow entry addresses are stored in 
the DTFIS table, and the overflow chain is 
searched for the desired record. When the 
desired record is found, its address is 
saved in the DTFIS table. If the desired 
record is not found in the overflow chain, 
a no-record-found indicator is set in the 
DTFIS table (Filename.C) and control 
returns to the problem program. 


If GKEY was specified in the SETL macro, 
the CCW chain to read the desired record is 
modified to search key equal or high. The 
search for the desired record then proceeds 
im the same manner as if KEY were specified 
in the SETL macro. However, in this case 
(GKEY), a no-record-found condition should 
not occur unless the key specified is 
pe ner than the existing highest key in the 

ile. 


If BOF was specified in the SETL macro, 
the address of the first prime data record 
in the file is saved in the sequential 
retrieve section of the DTFIS table, and 
the track index overflow entry address 
associated with the desired record is 
calculated and stored in the DTFIS table. 
Control then returns to the problem 
program. 


If the starting record address is 
referenced by a symbolic name in the SETL 
macro, this phase analyzes the 8-byte DASD 
address (MBBCCHHR) in the field specified 
by the symbolic name for validity. If the 
address 18S invalids an illegal ID indicator 
is set in the DTFIS table (Filename.C) and 
control returns to the problem program. If 
the starting address is valid, this phase 
Saves the address in the DTFIS table, 
calculates the track index overflow entry 
address associated with the desired record, 
stores it in the DTFIS table and returns 
control to the problem program. 


In order to perform a search of the 
master, cylinder or track indexes» prime 
data area and overflow area for the 
starting record, a CCW string is built to 
search the required areas. Figures 68-71 
give a description of the channel program 
built to perform the necesSary search. 


ISAM RETRVE, SEQNTL:;: SETL Macro, $$BSETLI 
Charts GM-GR 

Objective: To initialize for sequential 
retrieval when HOLD=YES, based on 
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information supplied by the user in the 
SETL macro. 


Entry: From the SETL macro expansion. 
Exit: To the problem program. 


Method: This logical transient first 
validates the limits of the DTFIS table and 
IOAREAS to ensure that they lie within the 
partition. It then initializes for 
sequential retrieval based on the 
information supplied by the user in the 
SETL macro. The SETL macro specifies the 
type of reference used to identify the 
first record to be processed. The types of 
reference are: 


. KEY. Key of starting record in the 
file. 

° GKEY. Location of starting record in 
the file, identified by a record key 


within a desired group. The user 
supplies a key that identifies the high 
order bytes of the required group of 
keys. For example, a GKEY specification 
of D6430000 would permit file processing 
to start at the first key containing 
D643XXXX, regardless of the characters 
represented by the Xs. 


e BOF. 


° ID (MBBCCHHR). Location of starting 
record in the prime data area. 


Beginning of the logical file. 


If sequential retrieval is to begin with a 
record associated with a particular key 
(KEY), the key of the beginning record must 
be placed in the field defined by the DTFIS 
entry KEYARG before the SETL macro is 
issued. This phase searches the master 
index Cif present), cylinder index, and 
track index until it finds the track index 
entry associated with the specified key. 

It determines whether the record with the 
desired key is on a shared or unshared 
prime data track or in the overflow area. 


If the record is on a shared track, the 
search is initialized to begin after the 
remainder of the track index has been 
bypassed. If the record is on a prime data 
track and records are unblocked, the track 
index overflow entry address associated 
With the desired record is calculated and 
stored in the DTFIS table, and the track is 
searched equal for the desired record. If 
the record is not found, a no~record-found 
indicator is set in the DTFIS table 
(Filename.C). 


If the file contains blocked records, 
the track is searched equal/high for the 
desired block. The user must supply Cin 
the DTFIS entry KEYLOC) the position of the 
key field in the data record. The block is 
searched. When the record with the 
matching key is found, its address 18 Saved 
in the DTFIS table, and control returns to 
the problem program. If the record is not 


found, the no-record-found indicator is set 
in the DTFIS table (Filename.C). 


If the record with the desired key is in 
the overflow area, tne track index normal 
and overflow entry addresses are stored in 
the DTFIS table, the appropriate index and 
data tracks are held, and the overflow 
chain is searched for the desired record. 
When the desired record is found, its 
address is saved in the sequential 
retrieval section of the DTFIS table. If 
the desired record is not found in the 
overflow chains a no~record-found indicator 
is set in the DTFIS table (Filename.C), the 
held index and data tracks are released, 
and control returns to the problem program. 


If GKEY was specified in the SETL macro, 
the CCW chain to read the desired record is 
modified to search key equal or high. The 
search for the desired record proceeds in 
the same manner as if KEY were specified in 
the SETL macro. However, in this case 
(GKEY), a no-record-found condition should 
not occur unless the key specified 15 
Pe bas than the existing highest key in the 

ile. 


If BOF was specified in the SETL macro, 
the address of the first prime data record 
in the file is saved in the sequential 
retrieval section of the DTFIS table, and 
the track index overflow entry address 
associated with the desired record is 
calculated and stored in the DTFIS table. 
Control returns to the problem program. 


If the starting record address is 
referenced by a symbolic name in the SETL 
macro, this phase checks the validity of 
the 8-byte DASD address (MBBCCHHR) in the 
field specified by the symbolic name. If 
the address is invalid, an illegal ID 
indicator is set in the DTFIS table 
(Filename.C), and control returns to the 
problem program. If the starting address 
is valid, this phase saves the address in 
the DTFIS table, calculates the track index 
overflow entry address associated with the 
desired record, stores it in the DTFIS 
table, holds the required index and data 
tracks, and returns control to the problem 
program. 


Before I/0 is performed, a switch is 
tested tc see if track hold has been 
Specified. If it has, the data track(s) 
and the corresponding index track(s) are 
held until I/0 is complete. If any error 
conditions occur (for example, no record 
found, wrong length record, or a DASD read 
error), any held tracks are freed before 
returning to the user. 


In order to perform a search of the 
master, cylinder, or track indexes, prime 
data area, and overflow area for the 
Starting record, a CCW string is built to 
Search the required area. Figures 68 - 71 
give a description of the channel program 
built to perform the necessary search. 
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| CCW Builder | | 
Label|]Control Code? CCW Built | Function 


| | pointer) into random/sequential 

| | Jretrieval area in DTFIS table. The 
| | ldata field is then moved from the 

| | |random/sequential retrieval area to 
| | the common seek/search area for the 
| | next search. 

Fa a ee ee 


i & See Notes 1 through 6 in Figure 75. 


| | 
| | 
| 7441 X"69", &KEYARG, CC, Key Search key equal or high the master/ [ 
| {Length [cylinder index. Key supplied by user | 
| | | lin DTFIS table. | 
| 0C40 X'08', Pointer to *+16, CC, |TIC to *+16. | 
| [Record Length | | 
| BOGB X"1A', 2&Filename.St+3, CC, 5|Read home address into common | 
| lseek/search area in DTFIS table. | 
| 506B X'92', “&Filename.S+3, CC Read count (multiple-track) - CCHHR - | 
| land SLI, 5 Jinto common seek/search area in DTFIS | 
| | | ltable. | 
| 7441 X'69", &KEYARG, CC, Key Search key equal or high the master/ | 
| |Length [cylinder index. Key supplied by er 
| 0440 X'O8', Pointer to *-16, CC, TIC to *-16. | 
| {Record Length | | 
| 110C X'O6', “&Filename.W, OO, 10 Read data (10-byte index level | 
| | 
| | 
| | 
| | 
| | 


Figure 68. Channel Program Builder for Sequential Retrieval -- CCW chain built to 
search master cylinder index. 


[CCW Builder | | 


ea 
l[random/sequential retrieval area in 
[DTFIS table. The data field is then 
[moved from the random/sequential 
lretrieval area for the next search. 


fiatolebt eesti Code? | CCW Built | Function | 
[ 806C X'31'", *“&Filename.S+3, CC Search identifier equal the track | 
| fand SLI, 10 lindex using the 10-byte pointer in the| 
| | | |jcommon seek/search area. | 
| 0640 X'O08', Pointer *-8, CC, TIC to x*-8. | 
| {Record Length | | 
| 126C X'O6", &IQAREAS, CC and Read data (10-byte track index | 
| | ISLI, 10 |pointer) into IGQAREAS, input/output | 
| | | larea for sequential retrieval supplied} 
| | | lby user. | 
| 506B X'92', 2&Filename.S+3, CC Read count (multiple-track) - CCHHR - | 
| | land SLI, 5 linto common seek/search area in DTFIS | 
| | | [table. | 
| 7441 X'69', &KEYARG, CC, Key Search key equal or high the track | 
| |Length lindex. Key supplied by user. | 
| 0240 X'O08', Pointer to ¥*~-24, TIC to *-24. | 
| | {CC, Record Length | | 
| 110C X'O6', "“&Filename.W, OO, 10 Read data (10-byte pointer) into | 
| | 
| 
| | 


ce ee es 


1 & See Notes 1 through 6 in Figure 75. 


Figure 69. Channel Program Builder for Sequential Retrieval -- CCW chain built to 
search track index. 
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{CCH Builder | | . 
{Label |]Control Code? ] CCW Built | Function 


| 
| 
ISTRI1 084B IX'31", 7&Filename.S+3, CC, 5|Search identifier equal the prime data| 
| j larea using the pointer (CCHHR) in the | 
| | | lcommon seek/search area in the DTFIS | 
| | ltable. | 
| | 066B eee Pointer to *-8, CC ac to *-8. | 
| | land SLI, 5 | | 
G16C X'12', 2&Filename.W, CC Read count into common | 
| land SLI, 10 lseek/search area in the DTFIS table. | 
| 6441 X'29"' or X'69"', &KEYARG, If KEY is specified in the SETL macro | 
| | or {CC, Key Length land/or records are unblocked,» this | 
| | 7441 | eacsare scarenee key equal the prime data | 
| | | |are If GKEY is specified in the | 
| | iSETL. macro and/or records are blocked; | 
| | | lthis CCW searches key equal or high | 
| | | lthe prime data area for the starting | 
| | | lrecord. | 
| 046B X¥'08', Pointer to *-16, TIC to *-16. | 
| {CC and SLI, 5 | | 
| 1202 X'06', &IOQAREAS, OO, Read data (block ontaining starting { 
| |Block Size lrecord) into TOARE AS. | 
i © See Notes 1 through 6 in Figure 75. 
Figure 70. Channel Program Builder for Sequential Retrieval ~-~- CCW chain built to find 
starting record in prime data area. 
ICCW Builder | | 
pone ee Code! | CCW Built | Function 
ISTRI3 804B X'31i', *“&Filename.S+3, CC, S/Search identifier equal the overflow 
| | [chain using the pointer (CCHHR) in the 
| [ [common seek/search area in the DTFIS 
| | ltable. 
0640 X'O08', Pointer to *-8>, CC, TIC to *-8. 
{Record Length | 
6441 X'29' or X'69"', &KEYARG, If KEY is specified in the SETL 
or CC, Key Length {macro, this CCW searches key equal 
7441 the overflow chain for the starting 
ecord. If GKEY is specified in the 


qual or high the overflow chain for 
he starting record. 


| 112C x06, 2&Filename.W, SLI, 0! Ss data (10-byte sequence link 


SE PS 


eg +r Ws 


ead 
[ | [field) into random/sequential 
| { lretrieval area in DTFIS table. This 
| | I\CCW is executed when the required 
| | loverflow record is not found in the 
| | loverflow chain. 
| 1203 Poyor &IQOAREAS, O0, aca data (sequence link fi 


lus starting record) into TOAREAS. 
his CCW is executed when the matching 
ey is found in the overflow chain. | 


|Record Length +10 


| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

ETL macro, this CCW searches key | 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| | 

| | | | 
| | 


AAT 


i © See Notes 1 through 6 in Figure 75. 


Figure 7l. Channel Program Builder for Sequential Retrieval -~- CCW chain built to find 
starting record in overflow chain. 
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CCW Parameter ? | | 


Control Code | CCW Built | Function 

0540 X'31", “*&Filename.S+3, CC, 5 Search identifier equal the prime data 
j larea using the pointer (CCCHHR) in the 
| {common seek/search area in the DTFIS 
| ltable. 
X'O', Pointer to *-8, CC, O TIC to *-8. 
X'05',* &IOAREAS, CC,5 Write data (block) onto prime data 
{Block Length® area. 


X'31l'", *&Filename.S+3, CC, 5 Search identifier equal to verify write 
| loperation. 


X'08", Pointer to ¥*-8, CC, O TIC to *-8. 


X'06"',* &IOAREAS, SKIP, es data to verify write operation. 


IBlock Length® 
———————— ee ee er A ee ee en | 


1 6 See Notes 1 through 6 in Figure 75. 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
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c 


Figure 72. Sanne Program Builder for Sequential Retrieval -- CCW chain built to write 
records. 


CCW Parameter ®| ] 
|\Control Code { CCW Built | Funetion 


0601 X'31', "*&Filename.S+3, CC, 5 Search identifier equal the track index 

ljarea using the pointer (CCCHHR) in the 

| eoumen seek/search area in the DTFIS 
able. 


X'08", Pointer to *-8, CC, QO TIC to *-8. 


X'06"',* *&Filename.W, CC,510 Read data (10-byte index level pointer) 
into random/sequential retrieval area in 
| lthe DTFIS table. 


X'31', *&Filename.S+3, CC, 5 Search identifier equal to verify read 
Joperation. 


X'08', Pointer to *-8, CC, O TIC to *-8. 


X'O6', &IOAREAS, SKIP, Read data to verify read operation. 
{Block Size | 


i 6 See Notes 1] through 6 in Figure 75. 
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Figure 73. Channel Program Builder for Sequential Retrieval -- CCW chain built to 
Search track index. 
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ar Parameter >| | | 


I\Control Code | CCW Built Function 


X'31i', *“&Filename.S+3, CC, 5 Search identifier equal the prime data 
| Jarea using the pointer (CCHHR) in the 
| lcommon seek/search area in the DTFIS 

| ltable. 

X'O08', Pointer to *-8 ,CC, 0 TIC to *-8. 

X'06',* &IOAREAS, CC,5 Read data into IOAREAS. 


{Block Length? 


X'31', *“&Filename.S+3, CC, 5 Search identifier equal to verify read 
| operation. 


X'O8', Pointer to *-8 ,CC, O TIC to *-8. 


X'06',9 &IOAREAS, SKIP, eae data to verify read operation. 


|}\Block Length* 
a a a a i ee 


1 6 See Notes i through 6 in Figure 75. 


ET I A SN He SS Hm A SE 


Figure 74. a NA i Program Builder for Sequential Retrieval -- CCW chain built to read 
records. 


Note 1: The CCW chains are built by the B-transients, S$$BSETL and $$BSETLI. The CCW 
uilder control code references information in the $$BSETL and §$$BSETL1 assemblies. 


b 

The first character of the control code references an operation code at IJHROP. 
The second character of the control code references a data area at IJHARA. 

The third character of the control code references the following information: 


ee Se 


Control Character CCW Flag Field Meanin 
| 0 x'oo' End of CCW chain 
| 2 X'20' SLI (Suppress Length Indicator) 
| 4 X'GO! CC (Command Chaining) 
| 6 X'60' CC and SLI 
eee character of the control code references a byte count (length) field at 
| : 
| Note 23 
|&Filename = DTF name supplied by us 
Pen eShane X = X is suffix supplied By DIFIS for unique DTF labels. 
| Note 3 
ee CCW parameter is found in the ISMOD assembly. 
pare first byte of the parameter is the command code. 


|The second byte of the parameter contains flags with the exception of the chain to 
{search the track index. In this case, the second byte is an indicator to the channel 
lprogram builder that the CCW chain is to search the track index. 


[Note 4G: If the file contains unblocked records, the command code is modified to either 
|Read Key and Data, or Write Key and Data. 


| Hore oe If the verify option has not been specified, the command chaining bit is not 
se on. 


|INote 6: If the file contains unblocked records, the byte count field contains the 
lphysical record length plus Key Length. 


ec a a A ce a ee a cS ee SS ey 


Figure 75. Channel Program Builder for Sequential Retrieval -- Notes. 
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ISAM ADDRTR: ESETL Macro, Chart JA 


Objective: To write the last record, if 
necessary, and to reset the status byte in 
the DTFIS table. 


Entry: From the ESETL macro expansion. 


Exit: To the problem program via linkage 
register 


Method: After initializing pointers to the 
DTFIS table, this routine sets the status 
byte in the DTFIS table to O. A test is 
then made to determine if the PUT issued 
bit 1s on in the retrieval byte of the DTF 
table. If it is on, the last block of 
records is written. A test for IOAREA2=YES 
is then made. If IOAREA2 is specified as 
an ISMOD macro parameter option to allow 
overlapping of I/0 with processing, a bit 
is set in the DTF table to indicate the 
first record is being processed and a wait 
for I70 completion is made. Control then 
returns to the problem program. 


ISAM ADDRTR: GET Macro, Charts JB-JE 


Objective: To perform sequential retrieval 
input for an indexed sequential file. 


Entry: From the GET macro expansion. 


Fxit: To the problem program via linkage 
register 14. 


Method: This routine in 

to the DTFIS table, and hen tests for 
TOAREA2=YES. If IOAREA2 is not specified 
as an ISMOD macro parameter option, a test 
is made to determine if the last record 
read was in the overflow area. If the last 
record read was in the overflow area, the 
contents of the sequence-link field is 
moved to the seek/search area, and a test 
is made to determine if the end of the 
overflow chain has been reached. If it has 
not been reached, the overflow record is 
read, addresses are saved, and the record 
is moved to WORKS, if specified. Control 
then returns to the problem program. 


If the end of the chain has been 
reached, the current disk address is 
updated to the next track and the next 
record 185 read. The record 1s moved to the 
work area, if specified, addresses are 
saved, and control returns to the problem 
program. 


itializes pointers 
t 


If the last record read was not in the 
overflow area, the routine determines if 
all records in the block have been 
processed. If all the records in the block 
have not been processed, the [I/0 area 
pointer is updated to the next logical 


record. If that record is not a padding 
record, it i8 moved to the work area, if 
specified, addresses are saved, and control 
returns to the problem program. If it is a 
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padding record, the EOF indicator is set in 
the DTFIS table, and control passes to the 
problem program. 


If all records in the block have been 
processed, a check 1S made to determine if 
the PUT macro has been issued. If it has, 
the record is written. 


A test is made to determine if the end 
of the track has been reached. If it has 
been reached, the track index is searched 
to find the next track index entry. The 
current track index record number in the 
DTF table is then updated, and a test is 
made to determine if there is any overflow 
record indicated in the track index entry 
just read. If the track index entry 
indicates an overflow record is present, 
that overflow record is read, and moved to 
the work area, if specified. Control 
returns to the problem program. 


If there is no overflow record indicated 
in the track index entry, the current 
address is updated by 1, and the record is 
read and moved into the work area, if 
specified. Control returns to the problem 
program. 


If IOAREA2 has been specified to allow 
overlapping of I/O0O with processing, a test 
1s made to determine if the last record 
read was in the overflow area. If the last 
record read was in the overflow area, a 
test is made to determine if the record 
being processed by the user is an overflow 
record. If i1t is an overflow record», a 
wait for I/0 completion is made, the next 
available I/0 area address 1s obtained, the 
current record address is saved, and a test 
is made to determine if the first record is 
being processed. 


If the first record is being processed, 
and if track hold has been specified, the 
appropriate index and data tracks are held, 
the overflow record is read, addresses are 
saved, and the record is moved to a 
workarea, if specified. Any held tracks 
are released, and control returns to the 
problem program. 


If the first record is not being 
processed, the address of the next overflow 
record 1s moved to the seek/search address 
and a test is made to determine if the end 
of the overflow chain has been reached. If 
the end has not been reached, and if track 
hold has been specified, the appropriate 
index and data tracks are held, the 
overflow record is read, addresses are 
Saved and the record is moved to the work 
area, if specified. Any held tracks are 
released and control returns to the problem 
program. 


If the end of the overflow chain has 
been reached, the current disk address is 
updated to the next track and the next 
record is read. The record 1s moved to the 
work area, if specified, addresses are 
saved, and control returns to the problem 
program. 
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If the last record was not an overflow 
record and the current record is not an 
overflow record, this routine determines if 
all the records in the block have been 
processed. all records in the block 
have not been processed, the I/0 area 
pointer is updated to the next logical 
record and the record counter is updated by 
alee If the next logical record is not a 
padding record, it is moved to the work 
area, 1s specified, addresses are saved, 
and control returns to the problem program. 
If it is a padding record, the EOF 
indicator is set in the DTF table and 
control returns to the problem program. 


When all the records in the block have 
been processed, a check is made to 
determine if the PUT macro has been issued. 
If the PUT macro has been issued, the 
record is written. A test for the presence 
of two I/O areas is then made. If the 
presence of two I]/0 areas is indicated in 
the DTF table, a test iS made to determine 
if the first record is being processed. If 
the first record is not being processed,» a 
wait for I/0 completion is made and the 
record address is saved in the DTF table. 


A test is made to determine if the end 
of the track has been reached. If the end 
of the track has been reached, the track 
index is searched to find the next track 
index entry. The current track index 
record number in the DIF table 1s updated. 
If HOLD is specified, the index track is 
held while a test iS made to determine if 
there 1S any overflow record indicated in 
the track index entry just read. If the 
presence of an overflow entry is indicated, 
and there are two I/O areas present, thi 
routine tests to determine if this is th 
first record. If it is not the first 
record, the record counter is set to l. 

The overflow record address 1s moved to the 
seek/search address, the overflow record is 
read, held if HOLD=YES is specified, and 
moved to the work area, if specified. 
Control then returns to the problem 
program. 


e 
Ss 
e 


If there is no overflow record indicated 
in the track index entry, the current 
address is updated by 1, the next record is 
read and moved to the work area, if 
specified, and control returns to the 
problem program. 


ISAM ADDRTR: PUT Macro hart JF 


Objective: To perform sequential retrieval 
output for an indexed sequential file. 


Entry: From the PUT macro expansion. 


Exit: To the problem program via linkage 
register 14. 


Method: After initializing pointers to the 
DIFIS table, this routine tests whether a 
GET has been issued. If a GET has not been 
issued, there is an SVC 50 Cerror). 
Otherwise, the GET issued switch is turned 


off and the output bit tn the retrieval 
byte in the DTFIS table is turned on. The 
record is moved from the work area to the 
I/O area, and the output bit in the 


retrieval byte is set off. 


If the record is unblocked, or is in the 
overflow area, this routine writes out the 
record and returns control to the problem 
program. If the records are blocked, this 
routine sets the bit in the retrieval byte 
to indicate that the PUT macro has been 
issued for this record, and returns control 
to the problem program. The GET macro 
routine causes the block to be written on 
DASD when it determines that all records in 
the block have been processed. 


ISAM ADDRTR: READ Macro, KEY, Chart JG 


Objective: To perform the random retrieval 
Input function for an indexed-sequential 
file by searching the indexes to determine 
Le een on which the desired record is 
stored. 


Entry: From the READ», KEY macro. 


Exit: To the problem program via linkage 
register 14. 


Method: This routine first initializes 
pointers and status bits in the DTFIS 
table. It then constructs the CCW chain to 
search the master or cylinder index (see 
Figure 76). It then determines the highest 
level index (master or cylinder) being 
used, and tests for ERREXT=YES. If ERREXT 
1s specified, additional error conditions 
can be returned to the problem program. 
This allows the user greater flexibility in 
attempting to continue processing. This 
routine then searches the highest level 
index to get the address of the next index 
to be searched. 


A test of the F code from the index 
level pointer 1s made to determine if the 
next search is of the track index. 
code refers to the index level just 
searched. If the master index was just 
searched, the next search 1s on the 
cylinder index. f the next search is not 
on the track index, the routine gets the 
index entry type and determines the routine 
to process that type. 


If the entry type 1S a normal entry, the 
routine returns to search the next index. 
If the entry type is a dummy end entry or 
an inactive entry, the routine branches to 
an error routine to set a no-record-found 
flag in the DTF table and return to the 
problem program. If the entry is a dummy 
chained entry, the routine returns to 
Search the index by using the address 
Supplied by the 10-byte index level 
pointer. 


When the next search is found to be on 
the track index, a test is made to 
determine if the track index takes up one 
track or more. If the track index does not 
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If the address is invalid, an illegal ID 
indicator is set in the DIFIS table 
(Filename.C), and control returns to the 
problem program. If the starting address 
is valid, this phase saves the address in 
the DTFIS table, calculates the track index 
overflow entry address associated with the 
desired record, stores it in the DTFIS 
table, holds the required index and data 
tracks, and returns control to the problem 
program. 


Before I/0 is performed, a switch is 
tested to see if track hold has been 
specified. If it has, the data track(s) 
and the corresponding index track(s) are 
held until I/0 is complete. If any error 
conditions occur (for example, no record 
found, wrong length record, or a DASD read 
error), any held tracks are freed before 
returning to the user. 


In order to perform a search of the 
master, cylinder, or track indexes, prime 
data area, and overflow area for the 
starting record, a CCW string is built to 
search the required area. Figures 91-94 
give a description of the channel program 
built to perform the necessary search. 


ISAM ADDRTR: SETL Macro SSBSETL2 


Objective: To complete the initialization 
of the DTF, to free or hold tracks as 
required, and to return control to the 
user. 


Entry: From ssBSETLl. 
Exit: To the problem program. 


Method: This phase is called by $S8BSETLI1 if 
no I/0 errors have been detected. The 
initialization of the DTF is completed for 
sequential retrieval starting with the 
specified key or low key in a group of 
keys. If HOLD=YES is specified in the DT 
the index track and the data track are he 
until exit, when the index track is freed 
The data track is freed by the module. I 
an error occurs, the proper error bit is 
posted in Filename.C and exit to the user 
is made after freeing all held tracks. 


ISAM ADDRTR: WAITF Macro, Charts KA-KE 


Objective: 


i To ensure that the las 
been completed and tha 
is normal. 


2s If the operation is a READ, to locate 
the specified record and to complete 
the transfer of data to the I/0 area 
specified by the DTFIS entry IOAREAR, 
and to the specified work area if the 


t EXCP iss 
t the condition 


DTFIS entry WORKR is included in the 
file definition. 


3% If the operation is a WRITE (CNEWKEY), 
to complete the addition of the record 
to an indexed sequential file, 
adjusting the indexes and other records 
as necessary. 


4G. If the operation is a WRITE (KEY), to 
return control to the problem program. 


Entry: From the WAITF macro expansion. 


Exit: To the problem program via linkage 
register 14. 


Method: This routine first tests for 
ERREXT=YES. If ERREXT is specified, 
additional error conditions can be returned 
to the problem program. This allows the 
user greater flexibility in attempting to 
continue processing. After initializing 
pointers to the three sections of the DTFIS 
table, this routine tests the status byte 
in the DTF table to determine if the 
condition so far is normal. If not, 
control returns to the problem program. 


If the condition 18S normal, the routine 
issues a WAIT to determine if the EXCP 
issued by the READ or WRITE routines has 
been completed, and also tests for errors. 
Then, if the operation is a WRITE CKEY), 
this routine returns control to the problem 
program. 


If the operation is a READ, this routine 
must complete the READ operation by moving 
the data to the J/0 area. If first sets 
the address of the track on which the 
desired record is stored in the seek/sSearch 
area, and initializes pointers to KEYARG 
and the I/0 area. It also gets the 
relative key location and key length. 


The routine picks up the index entry 
type (F code) from the search address and 
determines the routine to process that 
type. If the entry 18S a normal entry on an 
unshared track, a new CCW chain is built to 
find the record in the prime data area (See 
Figure 78). If blocked records are 
specified, the CCW command code is modified 
to search high or equal. An EXCP and WAIT 
are issued to find the record and read the 
block into the I/70 area. If records are 
unblocked, the record is moved into WORKR 
Cif specified), and control returns to the 
problem program. If records are blocked, 
this routine tests to determine if the key 
specified in KEYARG is less than the key in 
the first logical record. If so, the 
record has not been found, and the 
corresponding bit 1s set on in the DTF 
table. Otherwise, the corresponding key is 
found within the block and the routine 
moves the block to WORKR, if specified. 
Control is then returned to the problem 
program. 


For a normal entry on a shared track, 
the routine decreases the record number in 
the search address by 1, and builds a new 
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CCW chain to find records on a shared track 
(see Figure 79). Processing continues as 
in the routine to process a normal entry on 
an unshared track 


If the entry is an overflow end entry or 
an overflow chained entry, this routine 
first constructs a CCW chain to search the 
overflow chain. An EXCP and a WAIT are 
issued to locate the record in the overflo 
chain. A test is made to determine if the 
desired record has been found. If not, th 
routine tests for a overflow end entry. I 
so, the no-record-found bit is set on in 
the DTF table. If the entry is not an 
overflow end entry, the sequence-link field 
is inserted in the seek/search address, and 
the overflow chain iS Searched again. 


If the record has been found, overflow 
its are set on in the DTF table, and the 
irst nonoverflow record count is increased 
y l. The logical record is moved to 
ORKR, if specified. Control returns to 
he problem program via register 14. 


If the entry is a dummy end entry or an 
inactive entry, the routine sets a 
no-record-found bit on in the DTF table, 
and returns control to the problem program. 


If the operation is a WRITE (CNEWKEY), 
this routine determines the type of add 
function to be performed. The three types 
of add functions are: 


e Normal add to the prime data area. 
° Add to the overflow area. 


e EOF add. 


Normal Add to the Prime Data Area: This 
routine first determines if he record is 
to be added to the last prime data track. 
If it 185 and the last prime data track is 
full, the overflow record address is 
calculated, an EXCP (see Figure 85) is 
issued to search and read the prime data 
track to determine the point of insertion, 
and a wait for I/0 completion is made. 
Figures 76 through 111 describe the channel 
program builder for the ADDRTR function. 
If the addition is not on the last prime 
data track, the overflow record address is 
calculated and the prime data track is 
searched to determine the point of 
insertion for the record to be added to the 
file. When an equal/high key is found 
during the search, the count and data 
fields of that location are read into a 
Save area in the DTF table and IOAREAL 
respectively. 


A test is made to determine if the prime 
ata in core option was specified as an 
SMOD macro parameter. If it was 

pecified, as many records as can fit into 
he I/O area specified in the oPrrs cperand 
OAREAL are read from the prime data track 


Mert Ho 


into main storage. The key of the record 
to be added is compared to the keys of the 
existing records in the I/0 area. If a 
duplicate key is found, the condition is 
indicated to the user in the DTF table 
entry labeled Filename.C. If no duplicate 
key is found, the records are shifted in 
main storage leaving the record with the 
highest key remaining in the user's work 
area, WORKL. The other records are 
rewritten directly onto the track. Any 
remaining records on the track are then 
read into the I/O area. The process 
continues until the last record on the 
track is set up as an overflow record. 
When the last prime data record on the 
track has been rewritten, the new overflow 
record is written in the overflow area, the 
track index normal and overflow entries and 
the COCR are written on DASD, and control 
returns to the problem program. 


If the prime data in core option has not 
been specified as an ISMOD macro parameter, 
a test for blocked records is made. If the 
file contains unblocked records, the record 
previously found on the search key 
equal/high is reread to get the key field. 
If it is a duplicate key», a switch is set 
on in the DTFIS table indicating a 
duplicate key has been sensed and a return 
to the problem program 18S made. If there 
are no duplicate keys, the user's key and 
data are written from the work area, WORKL», 
onto the DASD file. The record in the I/0 
area, IOAREAL, replaces the user's record 
in the work area. The next record on the 
track replaces the one in the I/O area. 
This process 18S repeated until the end of 
track is reached. 


If the end-of-file (EOF) record is read 
during the process of shifting the records 
over one record position, this routine 
writes the last record over the EOF record 
and then writes a new EOF record (see 
Figures 84, 92, 933). 


If the file contains blocked records, 
this routine reads the block of records (or 
as many as fit in the I/O area if IOQAREAL 
Was increased for reading and writing more 
than one record at a time) into IOAREAL. 
The key field within each logical record is 
analyzed to determine the correct position 
in which to insert the new record. If 
there 1s duplication of keys, a switch is 
set on in the DTFIS table and control 
returns to the problem program. 


If the key of the record to be inserted 
(contained in WORKL) is low, it is 
exchanged with the record presently in the 
block. This procedure continues with each 
succeeding record in the block until the 
last record is moved into the work area. 
The key field of the DASD record is then 
updated to reflect the highest key in the 
block. If the size of IOAREAL has been 
increased, succeeding blocks in the I/O 
area are also updated. 
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The block Cor blocks) is then written back 
onto DASD. The remaining blocks on the 
track are similarly processed until the 
last logical record on the track is moved 
into WORKL. This record is then set up as 
an overflow record with the correct 
sequence-link field added and written in 
the overflow area. The sequence-link field 
for the new overflow record is taken from 
the track index overflow entry. The 
indexes are updated, and control returns to 
the problem program for the next record to 
be added. If the overflow area is full, 
this information is indicated to the user 
in the DTF table entry labeled Filename.C. 


The track index normal entry key field 
is updated to the key of the new last 
record, the track index overflow entry data 
field is updated to the address of the new 
overflow entry (that entry has the lowest 
key for the overflow for that track), and 
the COCR jis updated. These records are 
written on the DASD file before control 
returns to the problem program. 


If the last block in the prime data area 
is padded, the last record to be shifted is 
included in that block. If the EOF record 
is read during the process of shifting the 
records one record position, the last 
record is written as a new block and a new 
EOF record is written before returning 
control to the problem program. 


Add to the Overflow Area: This routine 
computes the new overflow record address 
and reads the overflow chain to get the 
address of the record with the next highest 
key. This address is stored in the 
sequence-link field of the new record. The 
new overflow record 1s then written in 
either the cylinder overflow area or 
independent overflow area (see Figure 91). 
If these areas are full, this condition is 
indicated to the user in the DTFIS table 
entry labeled Filename.C. Each time an 
overflow record is added to the independent 
overflow area, an EOF record is written to 
maintain the integrity of the indexed 
sequential file (€see Figure 94). The next 
overflow record followed by an EOF record 
overlays the previous EOF record. 


If the new overflow record has the 
lowest key tn the overflow chain, its 
address 1s used to build a new track index 
overflow entry. The new overflow entry is 
then written on the DASD file, and control 
returns to the problem program. 
cylinder overflow condition occurs, the 
updated COCR (cylinder overflow control 
record) is written on DASD before control 
returns to the problem program. 


If the new overflow record does not have 
the lowest key» the sequence-link field of 
the record with the next lower key 15 
updated to contain the address of the new 
overflow record. This overflow record 15s 
then rewritten on DASD and the COCR is 
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updated (see Figures 88-90). Control 
returns to the problem program. 


EQF Add: This routine first determines if 
the last prime data track is full. If the 
last prime data track is not full, the new 
record 1s inserted on it. If the file 
contains blocked records and the record can 
fit in the last block, the block is read 
and the new record is inserted. 


If the file is not blocked, or if it is 
blocked and the last block is full, a new 
last prime data record address is stored 
and the new record is written at that 
address. A new EOF record is then written. 


If the last prime data track is full, 
the new record is inserted in the overflow 
area. The new overflow record address is 
computed and the record is written in the 
overflow area. 


If an overflow chain is present, the 
next lower record in the chain is found and 
the address of the new record is moved to 
the SEO UEncerain field of the next lower 
record. 


If no overflow chain 1s present, the 
dress of the new overflow record is moved 
the track index overflow entry. The 
ck index overflow entry is then written 
h the new high key. The master index 
resent) and the cylinder index are 
ed with the new high key. A test for 
ylinder index in core option is then 
made. If it has not been specified, 
control returns to the problem program. I f 
the cylinder index in core option has been 
specified, the new key is inserted into the 
appropriate index in core entry before 
returning control to the problem program. 


o 
O +d 


ISAM ADDRTR: WRITE Macro, KEY, Chart KF 


Objective: To perform the random retrieval 
ee function for an indexed sequential 
ile. 


Entry: From WRITE, KEY macro expansion. 


Exit: To the problem program via register 
14. 
Method: This routine first sets the write 


bit in the DTFIS table. If then tests for 
an uncorrectable DASD error, wrong length 
record error, or no record found error. If 
any of these errors exists the 
no-record-found bit 18S set on in the DTF 
table, and control returns to the problem 


program 

If there are no errors, the status byte 
in the DTF table is reset, and pointers to 
the DTF table are initialized. 


DAM and ISAM 


C 
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his routine then picks up the count field 
f the record as saved by the read routine, 
he address of WORKR, and the address of 

he logical record within the I/O area. 

he ecord, or block of records, is moved 

re) 
h 
u 


OT Hetero 4 


ie 
the I70 area from WORKR Cif specified). 
e CCW chain to write records is then 
ilt (see Figure 81). 

If the entry to be written is not an 
overflow entry, the byte count field in the 
write and verify CCWs is modified to the 
block length from the DTF table. This 
routine then issues the EXCP to write the 
record, and returns control to the problem 
program without issuing a WAIT. The WAIT 
function is left to the WAITF macro, which 


must be issued before the user can continue 
processing. 


SAN ADDRIR: WRITE Macro, NEWKEY, Charts 


Objective: To perform the necessary 
initialization to add a record to a file. 


Entry: From the WRITE, NEWKEY macro 
expansion. 


Exit: To the problem program via linkage 
register 14. 


Method: After initializing the pointers to 
the three parts of the DTFIS table, this 
routine gets the starting address of the 
highest level index, builds a CCW chain to 
search the highest level index (see Figure 
82) and tests for ERREXT=YES. If ERREXT is 
specified, additional error conditions can 
be returned to the problem program. This 
allows the user greater flexibility in 
attempting to continue processing. The 
channel program is executed and a wait for 
I/O completion is made. It then tests the 


F code of the index level pointer to 
determine if the next search is of the 
cylinder or track index. The F code refers 
to the index level just searched. If the 
master index was just searched, the next 


search is on the cylinder index. See 
Figure 20 for a description of the F code. 


If the F code indicates a dummy chained 
entry, the search of the master, cylinder 
or track index continues. If the index 
level pointer did not indicate a dummy 
chained entry, a test for an inactive or 
dummy end entry iS made. If an inactive or 
dummy end entry is indicated, the EOF add 
indicator is set on in the DTFIS table> a 
CCW chain is built to read the last track 
index entries, the channel program to 
bypass the last of the track index entries 
is executed, a wait for the I/0 operation 
to be completed is made, and control 
returns to the problem progran. Processing 
continues with the record following the 
last key. 


If an inactive or dummy end entry is not 
indicated, a test for the presence of a 
master index is made. If the master index 
is not present; indicating the cylinder 
index was just searched, a search of the 
track index is performed, and a return to 
the problem program is made. 


If the master index is present, a test 
is made to determine if the cylinder index 
in core option was specified as an ISMOD 
macro parameter. If it was not specified, 
an EXCP is issued to search the cylinder 
index, followed by a wait for I/0 
completion, an EXCP to search the track 
index, a wait for I/0 completion» and a 
return to the problem program. If the 
cylinder index in core option was 
specified, a search of the track index is 
performed, and a return to the problem 
program iS made. 


Any tracks which have been held during 
update are released before control returns 
to the user. 
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CCW Builder | | 


Control Code? | CCW Built : Function 
7461 F 2 Renee CC and rch key equal or high the master/ 
, 


: , Searc 
ISL Key Leng lcylinder index. Key supplied by user in 
| Jjthe DTFIS table. 
X'O8*, Pointer to *+16, CC TIC to *+16 for non-RPS. 
’ PPI ERT to *+24, CC TIC to *+24 for RPS. 


X'"1A', “&Filename.W, CC, Read home address into random/sequential 
{SLI, and SKIP, 5 lretrieval work area in DTFIS table. 


X'23", SECARG=0, CC, 18 
X08" 


Set Sector for start of track. 
Set when CYLINDEX is a non-RPS device. 


Read count (multiple-track) into IOAREAR. 


X'92", &IOAREAR, CC and 
{SLI, 10 | 


7461 i1X"'69", &KEYARG, CC and SLI, Search key equal or high the master/ 
[Key Length cylinder index. Key supplied by user in 
{|DTFIS table. 
046B X'O08', Pointer to *-16, CC TIC to x*-1i6. 
land SLI, 5 | 
110C X'06', *&Filename.W, O00, 10 Read data (10-byte index level pointer) 


| linto random/sequential retrieval area in 
| IDTFIS table. 


1--8 See Notes 1 through 8 in Figures 110 and 11ll. 


LT TT OS Re ET YS SEARS WP ivi oN sacancn syncs ml Aliatal! lala tae tes — NN ce re 


Note: The shaded areas indicate CCWs built for RPS only. 


Figure 76. Channel Program Builder for ADDRTR -- CCW chain built to 
search master-cylinder index for random retrieve function. 


CCW Builder } | 


| linto random/sequential retrieval area in 
j IDTFIS table. 


pada Code? ] CCW Built Function | 
| D36B fabaeaae &IOAREAR, CC and SLI, pee home address into IOAREAR. 

, 7 
| X*23"°, SECARG=0, CC, 1° Set Sector for start of track. 
| 9461 X'E9", &KEYARG, CC and SLI, Search key equal or high (multiple-track) | 
| |\Key Length |track index. Key supplied by user in DTFIS| 
| | ltable. | 
| 0656B X'08", Pointer to *-8; CC TIC to *-8. | 
| land SLI, 5 | | 
| 110C X'O06'", *&Filename.W, 00, 10 Read data (10-byte index level pointer) | 
| | 


1--8 Gee Notes 1 through 8 in Figures 110 and 111. 
Note: The shaded areas indicate CCWs built for RPS only. 


Figure 77. Channel Program Builder for ADDRTR -- CCW chain built to 
search track index for random retrieve function. 
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CCW Bfilder | | 


jcenecen Code! | CCW Built | Function | 
| 7461 ers &KEYARG, CC and eae key equal or high in prime data | 
| |SLI, Key Length larea. Key supplied by user in DTFIS steel 
| OC4B TX 08 (Tre to *+16. | 
| CC, | | 
| FOO] {X*23 ‘|Set Sector for start of track. a | 
| D17B X'1A', *&Filename.W, CC; Read home address into random/sequential | 
| ISLI,» and SKIP, 5 lretrieval area in DTFIS table. | 
| GO6C X'12"', *&Filename.S+3, CC Read count into common seek/search area | 
| Jand SLI, 10 in DTFIS table. | 
| 6461 X'29" or X'69", &KEYARG, If records are unblocked, search key equal | 
| or 1C¢C and SLI, Key Length in prime data area. If records are | 
| 7461 | lblocked, search key equal or high in prime | 
| | ijdata area. Key supplied by user in DTFIS | 
| | ltable. | 
| 044B X'08', Pointer to *-16, TIC to *-16. | 
| cc, 5 | | 
| 1302 X'O06", &IOAREAR, OO, Block Read data (block) containing starting | 
| {Length lrecord into IOAREAR. | 


1--5 See Notes 1 through 8 in Figures 110 and 111. 
Note: The shaded areas indicate CCWs built for RPS only. 


Figure 78. Channel Program Builder for ADDRTR -- CCW chain built to 
find record in prime data area (Cunshared track) for random 
retrieve function. 


CCW Builder | | 


[Control Code? | CCW Built Function 


oe 


| 
| 804B X'31"', *&Filename.S+3, CC, 5 |Search identifier equal the prime data area] 
| fusing the pointer (CCHHR) in the common | 
| | seek/search area in the DTFIS table. | 
| 064B X'08', Pointer to *-8 CC, 5 TIC to *-8. | 
{ G406C X'12"', *&Filename.S+t+3, CC Read count into common seek/search area | 
| {and SLI, 10 in DTFIS table. | 
| 6461 X'29" or X'69', &KEYARG, If records are unblocked, search key equal | 
| or {CC and SLI, Key Length |the prime data area. If records are | 
| 7461 | lblocked, search key high or equal the prime] 
| | |data are. Key supplied by user in DTFIS | 
| | |table | 
| 044B X'08"', Pointer to *-16, | 
| (cc, 5 | | 
| 1302 X'06", &IOAREAR, OO, Read data (block) containing record into | 
| |\Block Length |IOAREAR. | 

1--8 Gee Notes 1 through 8 in Figures 110 and 111. 


Note: The shaded areas indicate CCWs built for RPS only. 
Figure 79. Channel Program Builder for ADDRTR -- CCW chain built to 


find record in prime data area (shared track) for random 
retrieve function. 
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CCW Builder | | 
Control Code!?| CCW Built 


| x*23", SECARG=1, Cc, 1° 
X'31', *&Filename.S+3, CC, 5 


Function 


|Set Sector for overflow chain. 


iSearch identifier equal the overflow chain 
Raw the pointer (CCHHR) in the common 
seek/search area in the DTFIS table. 


804B 


064B x08", Pointer to *-8, CC, 5 |TIC to x-8. 


6461 X'29*, &KEYARG, CC and Search key equal the overfl 
ISLI, Key Length Key supplied by user in DTF 


116C X'06*, “&Filename.W, SLI, 10 |Read data (10-byte sequence li 
| into random/sequential retriev 
| IDTFIS table. This CCW is exec 
| required overflow record is no 
| the overflow chain. 


1303 X'06"', &IOAREAR, OO, Read data (sequence link field plus 
[Record Length + 10 logical record) into IOAREAR. This CCW i 
| executed when the matching key is found i 
| lthe overflow chain. 


—— ES A Sy SS EY Se ee nen Se ES es meee 


1~-8 See Notes 1 through 8 in Figures 110 and 111. 
Note: The shaded areas indicate CCWs built for RPS only. 


Figure 80. Channel Program Builder for ADDRTR -~- CCW chain built to 
find record in overflow chain for random retrieve function. 


CCW Builder | 
iControl Code! CCW Built Function 


zy fat [Set Sector for prime data area. 

804B X'31", *&Filename.S+3, CC, 5 |Search identifier equal prime data area 
uSing pointer (CCHHR) in common seek/ 
search area in DTFIS table. 

064B X'08', Pointer to *-8, CC, 5 |TIC to *-8. 

B3C3 X'O5', &IGAREAR, CC, Record Write data from IOAREAR. 

{Length + 10 
. , Set Sector for prime data srea. 


804B [x'31, 2&8Filename.S+3, CC, 5 {Search identifier equal the prime data 
| area, using pointer (CCHHR) in common 
| lseek/search area in DTFIS table. 

064B X'08", Pointer to *-8, CC, 5 |TIC to ¥*-8 

1333 ager, &IOQAREAR, SLI and mene data to verify record just written. 
SKIP, Record Length + 10 l|Information is not transferred to main 


pe cane i ly EE ES SS S/S ee initia: saa. 


“et 
peak 
tnt 
fom 


| 

| storage. 
1--& See Notes 1 through 8 in Figures 110 and 111. 

Note: The shaded areas indicate CCWs built for RPS only. 


Figure 8l. Channel Program Builder for ADDRTR -- CCW chain built to 
write record for random retrieve function. 
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CCW Builder | | 


fea ahaa Code! | CCW Built Function | 
| 7961 X'69', &KEYARG, CC and SLI, Search key equal or high the master/ | 
| Key Length lcylinder index. Key supplied by user in 
| lthe DTFIS table. ! 
| OC6B X'08', Pointer to *+16, CC TIC to *+16. | 
| land SLI, 5 | 
| ful [Nasi SRGARERUL EC, Is laut Sandor for Wisre Gh eae | 
| D17B X'1A', “&Filename.D+8, CC, Read home address into work area for | 
| ISLI and SKIP, 5 the current track index normal entry count | 
| | field in the DTFIS table. | 
| 516C X'92'"', *&Filename.Dt+8, CC Read count (multiple-track) into work | 
| land SLI, 190 jarea for the current track index normal | 
| | fentry count field in the DTFIS table. | 
| 7961 X'69"', &KEYARG, CC and Search key equal or high the master/ | 
1 ISLI, Key Length lcylinder index. Key supplied by user in | 
| | lthe DTFIS table. | 
| 046B X'O08", Pointer to *-16, CC TIC to *-16. | 
| land SLI, 5 | | 
150C X'06", “&Filename.D+40, OO, Read data (next 10-byte index level | 
| 10 lpointer) into work area for track index | 
| Inormal entry data field in DTFIS table. | 
1 -- ® See Notes 1 through 8 in Figures 110 and 1il. 
Note: The shaded areas indicate CCWs built for RPS only. 
Figure 82. Channel Program Builder for ADDRTR -- CCW chain built to 


search master cylinder index for add function. 
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CCW Builder § |] | 


land SLI, 10 data record) into work area for track index 
| normal entry data field in DTFIS table. 


*, *&Filename.Dt16, CC Read count (multiple-track) into work 
SLI, 10 larea for current track index overflow entry 


| ore field in DTFIS table. 
1poc ae *“&Filename.W, O00, 10 Read data (10-byte overflow entry) into 
a ee ee a RS ey 9 NR mc a PL 


{Control Code? | CCW Built Function | 
= FOG) — X'23', SECARG=0, CC, 1® {Set Sector for start of track. | 
} 8CG4B X'31", 2&Filename.S+3, CC, 5 {Search identifier equal the track index | 
| seek/search area. | 
| 066B Pore Pointer to *-8, CC ae to *-8. | 
| Jand SLI, 5 | | 
] 106C ign ", *&Filename.D, CC and reer data (COCR record) into the cylinder | 
| 1SLI, 10 joverflow record (COCR) area. | 
| 516C eee, *&8Filename.D+8, CC [Read count (multiple-track) into work | 
| land SLI, 10 area for the current track index normal | 
| | jentry count field in the DTFIS table. | 
| 7941 poor &KEYARG,CC, Scar cn key equal or high the track index. | 
| |Key Length lKey supplied by user in the DTFIS table | 
| 046B X'08"', Pointer to *-16, CC TIC to *-16. | 
| land SLI, 5 | 
| 156C X'O6', *&Filename.D+40, CC Read data (next 10-byte pointer to prime | 
| | 
| | 
| | 
| 
| | 
| | 
| 
| | 


jJrandom/sequential retrieval work area. 
1 -- 8 See Notes i through 8 in Figures 110 and 111. 
Note: The shaded areas indicate CCWs built for RPS only. 


Figure 83. Channel Program Builder for ADDRTR -- CCW chain built to 
search track index for add function. 


CCW Builder | 


|Control Code? | CCW Built Function 
Fi0l  «$¥"23", SECARG#1, CC 1%  — |Set Sector for last data record or start of 
| | : . : new track. | 
| 8C4B Ix'31', “&%Filename.S+3, CC, 5 |Search identifier equal for the last prime | 
j | data record address using pointer, CCHHR, | 
| | in common seek/search area in DTFIS table. | 
| 066B X'08', Pointer to *-8, CC TIC to *-8. | 
| and SLI, 5 | | 
H 342C X'10"*, *&Filename.Dt+32, Write count, key and data of EOF record | 
| leas 10 located in current overflow record count } 
| field in DTFIS table. 
a a ee a ee ee ee eee | 
1 -- §&® See Notes 1 through 8 in Figures 110 and 111. 
Note: The shaded areas indicate CCNs built for RPS only. 
Figure 84, Channel Program Builder for ADDRTR -- CCW chain built to 


write new EOF record for add function. 
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ecu Builder | | | 
Control Code? CCW Built Function 


| 

FLO —s|X" 23", SECARG#1, CC, 1® = |Set Sector for current prime data record. | 
| 8CGB X'31', 2&Filename.St+3, CC, 5 {Search identifier the prime data area using| 
| | pointer, CCHHR, in common seek/search area | 
| in DTFIS table. | 
X'O08"', Pointer to *-8, CC TIC to *-8. | 

| land SLI, 5 | 
| 436C X'12"', *&Filename.D+24, CC Read count for current prime data | 
| land SLI, 10 l|record. | 
| 7941 X'69", &KEYARG, CC, Key Search key equal or high the prime data | 
| |Length area. Key supplied by user in DTFIS See 
0468 X°08", Pointer to *-16, CC TIC to *-16. | 
| Jand SLI, 5 | | 
| 1BO02 X'06", Address of IOAREALt8 Read data (prime data block) into | 
| |\+KEYLEN, 00, Block Size }IOAREAL+8+Key Length. | 


1 -- §& See Notes 1 through 8 in Figures 110 and 111. 
Note: The shaded areas indicate CCWs built for RPS only. 


Figure 85, Channel Program Builder for ADDRTR -- CCW chain built to 
find prime data record for add function. 
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CCW Builder | | ; 
pe eet Code? | CCW Built | Function 


-(X"23", SECARG=0, CC, 19. 


Search identifi 


"BCGB X'31', *&Filename.S+3, CC, 5 er e 
| lusing pointer, CCHHR, in common seek/ 
| }search area in DTFIS table. 
066B X'08', Pointer to *-8, CC TIC to *-8. 
land SLI, 5 
BO6C X'O5', *&Filename.D, CC and Rewrite COCR located tn cylinder overflow 
ISLI, 10 control record work area tn DTFIS table. 
F161 ~—s«4|X*23" SECARG=1, CC, 1® =~ «|| Set Sector for the track index ‘formal 
Se ay ee ee required. — ee . 
E14B X'B1l', *“&Filename.D+8, Search identifier equal Gaulein ies track) 
Icc, 5 |for the pointer, CCHHR, in the normal 
| lentry count field. 
066B X'08"', Pointer to *-8, CC TIC to *-8. 
land SLI, 5 


2A45 X'OD', Address of Rewrite track index normal entry located 
aaeeeree CC, Key Length at IOAREAL+8. 
+ 
E24B X'"Bl', *“&Filename.D+16, CC, 5 |Search identifier equal (multiple-track) 
lfor the pointer, CCHHR, in the overflow 
| entry count field. 
066B X'08"', Pointer to *-8, CC TIC to *-8. 
land SLI, 5 | 
BDCC X'O5S', *&Filename.W, CC and ‘Rewrite overflow entry located in random/ 
Cc, 10 sequential retrieval work area. 


F251 X'23"', SECARG=2, CC, 18 Set Sector for the track index overflow 
| lentry required. 


4X*22°, 18 


SECARG=2, 


cc, lRead Sector for the next track index 


overflow entry. 


Search identifier Saat for the neeeensiranais 


X'31', *&Filename.Dt+16, 


SS SS SE SS ES ES A EE SS TE ES LE EE LE TT AE 
a ON ET A TT EE TE HE ES EE TS SS A SS A TS ST SS SS SS ES A PS AD ES ce cis SO pe 


824B 
icc, 5 |CCHHR, in the overflow entry count field. 
066B X'08'", Pointer to *-8, CC TIC to *-8. 
land SLI, 5 
1D3Cc X'06'", *&Filename.W, SLI and Read data to verify record just written. 
ISKIP, 10 lInformation is not transferred to main 
| istorage. 
eee eee a a a ee a ae a Pr eee 
1 -- 8 See Notes 1 through 8 in Figures 110 and 111. 
Note: The shaded areas indicate CCWs built for RPS only. 
Figure 86. Channel Program Builder for ADDRTR -- CCW chain built to 


rewrite track index entry for add function. 
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CCW Builder | | 
jeopne! Code" | CCW Built | Function 


‘1x*23", SECARG=0, cc, 1° 


8C4B X"'13"', *&Filename.S+3, CC, 5 {Search identifier equal for RO using 
{pointer, CCHHR,», in common seek/Search area 
lin DTFIS table. 
066B X'08', Pointer to *-8, CC TIC to *-8. 
and SLI, 5 | 
BO6C X'O5', *&Filename.D, CC and Write data (Cupdated COCR) from the 
SLI, 10 leylinder overflow control record (COCR) 


area in the DTFIS table. 


18 


Set Sector for current track index normal 
entry. 


«[X"23", SECARG¥1, CC, 


identifier equal (Cmultiple-t 


X'"Bl1l', “&Filename.Dt8, CC, 5 


Search rack) 
jthe track index using the pointer, CCHHR, 
| jin the work area for the current track 
| lindex normal entry count field. 
066B X'O8", Pointer to *-8, CC TIC to ¥*-8. 
and SLI, 5 
BDCC X'O5", *&Filename.W, CC and Write data (track index overflow entry) 


leas 10 pee the random/sequential retrieval work 
area 


-1X'23", SECARG=1, cc, 1° Set Sector for current track index normal 


entry. 


the track index 
in the work area 


814B ee *%Filename.D+8, CC, 5 {Search identifier e 
dex normal entry 


qual 
Jjusing the pointer, CCHHR 
| lfor the current track in 
count field. 


ry 
Se SY A ND A RY A ST si Ce eS EE SS EY A OT ES NS Le EE EE YM IS eS mos A es eee 


066B X'O08', Pointer to *-8, CC TIC to *-8. 
land SLI, 5 | 
1D3C X'06", *&Filename.W, SLI Read data to verify record just written. 
land SKIP, 10 lInformation is not transferred to main 
}Istorage. 
1 -- 8 See Notes 1 through 8 in Figures 110 and 111. 
Note: The shaded areas indicate CCWs built for RPS only. 
Figure 87. Channel Program Builder for ADDRTR -- CCW chain built to 


write track index entry for add function. 


CCW Builder | | 


{Control Code? | CCW Built | Function | 
| FO41 | 1X'23", SECARG=0, CC, 1% | Set Sector for start of track. | 
| 8C4B X'31', *&Filename.S+3, CC, 5S {Search identifier equal for RO using | 
| pointer, CCHHR, in common seek/search area | 
| | {in DTFIS table. | 
| 066B X'O08", Pointer to *-8, CC TIC toa° *-—8i | 
| Jand SLI, 5 | | 
| BO2C X'0O5", *&Filename.D, SLI, 19 Write data Cupdated COCR) from the cylinder | 
| | Joverflow control record area in the DTFIS 
| | [table. | 
eee 
1 -- 8 See Notes 1 through 8 in Figures 110 and ill. 
Note: The shaded areas indicate CCWs built for RPS only. 
Figure 88. Channel Program Builder for ADDRTR -- CCW chain built to 


Write COCR for add function. 
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CCW Builder | ' 
{Control Code! | CCW Built | Function 


X'23?, SECARG=1, CC, 1° 


1Set Sector for previously low overflow 
record. 


X'31', *&Filename.S+3, CC, 5 |Search identifier equal using pointer, 


| 8C4B 

| | ICCHHR, in common seek/search area in DTFIS 
| | ltable. 

| 066B X'08", Pointer to *-8, CC TIC to *-8. 

| land SLI, 5 | 

| AAO7 X'OE', Address of IOQAREAL+8,> Read key and data of previously low 

00, Key Length + Record overflow record into IOAREALtS8. 


|Length + 10 
ee ee i ee ee ee eee 


1 -- §& See Notes 1 through 8 in Figures 110 and 111. 
Note: The shaded areas indicate CCWsS built for RPS only. 
Figure 89. Channel Program Builder for ADDRTR -- CCW chain built to 


read previous overflow record for add function. 


[cow Builder | | | 


Control Code! | CCW Built Function 
F121  - ¥*23", SECARG=1, CC, 1° '|Set Sector for previously low ‘overflow 
: = | record. : : : 

8C4B X'31', *&Filename.S+3, CC, 5 {Search identifier Sane aernG pointer, 

[ CCHHR» in common seek/search area in DTFIS 
table. 

066B X'08', Pointer to *~-8, CC TIC to *-8. 
land SLI, 5 

2A47 X'OD', Address of IOAREAL+8S, Write key and data of previously low 
re oo aus gth + Record oye encee record located at IOQAREALtS. 

eng + 


Fist ike, cc, i® 


-SECARG=1, Set Sector for previously low overflow a 


record, 


&8C4B X'31", *&Filename.St+3, CC, 5 identifier equal dsing pointer, 


oe A EE a NS OO ES TS NL NY ENN AE SR EE SY SR SNR 
A A i a TE ED A ee SE a RE LY SS i WT SN Wane pes 


Search 
| ]CCHHR, in common seek/Search area in DTFIS 
| table. 
066B X'O08*, Pointer to *-8, CC TIC to *-8. 
land SLI, 5 
AA37 X'OE', Address of JOAREAL+8, Read key and data to verify record just 
1SLI and SKIP, Key Length + written. Information 18 not transferred 
{Record Length + 10 |jto main storage. 
1 -- 8 See Notes 1 through 8 in Figures 110 and 111. 
Note: The shaded areas indicate CCWs built for RPS only. 
Figure 90. Channel Program Builder for ADDRTR -- CCW chain built to 


write previous overflow record for add function. 
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CCW Builder | 
peonerot: Code" a CCW Built Function 


8C4B > Gale oy Fae 2a Len aies S+3; CC, 5 |Search Hen eae nares for last overflow 


record address using pointer, CCHHR,» in 
| common seek/search area in DTFIS table 
0646B X'08"', Pointer to *-8, CC TIC to *-8. 
land SLI, 5 


X'1D', Address of IOAREAL, 
{CC and DC, Key Length + 
{Record Length + 18 

‘SECARG=1, CC, 1® = |Set Sector for last overflow record. 


X'31', *&Filename.S+3, CC, 5 |Search identifier equal for last overflow 
record using pointer, CCHHR, in common 


Write count, key an 
record located at I 


oo 
> 


| lseek/search area in DTFIS table. 

X'08", Pointer to *-8, CC TIC to *-8. 

and SLI, 5 | 

X'1E*, Address of IQAREAL, Read count, key and data to verify record 

SLI and SKIP, Key Length + |just written. Information is not 

Record Length + 18 ltransferred to main storage. 

t -- 8 See Notes 1 through 8 in Figures 110 and 111. 
Note: The shaded areas indicate CCWs built for RPS only. 
Figure 91. Channel Program Builder for ADDRTR -- CCW chain built to 
write new overflow record for add function. 
CCW Builder | | 

pooner! Code?! | cn Built | Function | 
= F101 «| X'23', SECARG=1, CC, 1° {Set Sector for last overflow record. a 
| &8C4B X31" 5 2EF UV eneme. S+3, CC, 5 |Search identifier equal for present EOF | 
| | record address minus one using pointer, | 
| | CCHHR, in common seek/search area in DTFIS | 
| ltable. | 
| 066B X'08"', Pointer to *-8, CC ‘TIC to *-8. | 
| and SLI, 5 | 
{ 
| 37C8 Prarie Address of IQAREAL;, [Bs count key and data of new record | 
| {CC and DC, Key Length + to be added located at IOAREAL. { 
| we biids Size + | 


| ii : 13', SECARG=1,_ CC, 19 ~—- | Set Sector for last overflow record. 


8C4B ae 31° 2&8Filename.S+3;, cc, 5 |Search identifier equal for present EOF 
record address minus one uSing pointer, 
| iossaee in common seek/search area in DTFIS 
able 


- ona , 


oO mn 
a hae 
On Berd 
a >< x 
3jI - 7 b: s 
~lo0 oe 
oo OF 
ww - ied 
re i) & z 
= : 
a ww “U 
(@] 
AQ | w- 
a} 
rt 
ri?) 
oo | a.) 
cr 
(@] 
> 4 
j 
oO 
oO 
(| 
. 4 
oO 
ctr 
ole 
* 
ct | 
ce Co 
ih 
rt 


SLi he S IP, Key Lengt + Jjust wri en Information is no 
IBlock Size + ltransferred to main storage 
1 -- ® See Notes 1 through 8 in Figures 110 and 111. 
Note: The shaded areas indicate CCWs built for RPS only. 
Figure 92. Channel Program Builder for ADDRTR ~—-- CCW chain built to 


write over EOF record (blocked records) for add function. 
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CCW Builder | ; | ; 
conte od Code? | CCW Built st Function 


{record address minus one using pointer, 
| aes in common seek/search area in DTFIS 
able 


| | 
lar TT " syst " <4 

; (eas) -SECARG=1, cGy a cs {Set Sector. for ‘Present EOF | 
i Pay peace ee e a ; eas y aus one os 3 ee Se PCs ae ee a 
| 8C4B X31" s 2G ensmes S+3, Cc, 5 Weeaces identifier eoual for present EOF | 
| record address minus one uSiNg pointer, | 
| ICCHHR,», in common seek/search area in DTFIS | 
| | ltable. | 
| 066B X'08', Pointer to *-8, CC TIC to *-8. | 
| | and SLI, 5 | 
| 37C8 X'1D', Address of IOAREAL, Write count, key and data of new record | 
| 1cC and DC, Key Length + to be added, located at IOAREAL. | 
1Block Size + 8 | 
[ ee SECARG=1, cc, a oe eet Sector for. present aor es ee 
oUF  fminus one. eee Boe | 
| 8C4B X'31', See VERSE: S+3, CC, 5 |Search dentition onal for present EOF | 
| | 
| | 
| | 
| | 
| | 
| | 
| 
i | 
| | 


066B x08", Pointer to *~8, CC ric to *-8. 
land SLI, 5 
C738 Ix-1e", veg ree of IOAREAL, Rae count, key and data to verify record 
ISLI and SKIP, Key Length + jjust written. Information is transferred 
!Block Size + "3 ito main storage. 
1 -- ® See Notes 1 through 8 in Figures 110 and 11l. 
Note: The shaded areas indicate CCWs built for RPS only. 
Figure 93. Channel Program Builder for ADDRTR -- CCW chain built to 


write over EOF record Cunblocked records) for add function. 


CCW Builder | | 

Control Code? | CCW Built = Function 
R21 ee SECARG=1, he te jSet. Sector for present ROE wepord idenss 
3 : — Jminus one. | — 


| 

| 

| 

ee : ae —— r—iCS 
8C4B X31", RFA Lenane: S+3, CC, 5 Search identifier seuail for present EOF 
] | ljrecord address minus one using pointer, 
| | {CCHHR», in common seek/Search area in DTFIS 
| 
| 
| 
| 
| 
| 


ii aa" 


| ltable. 
066B X'O08', Pointer to *-8, CC TIC to x*-8. 
land SLI, 5 ] 
37AC X'1D', Address of IQAREAL;, Write count, key and data of EOF record 
IDC and SLI, 10 |located at IOAREAL. 
1 -- ® See Notes 1 through 8 in Figures 110 and 111. 
Note: The shaded areas indicate CCWs built for RPS only. 
Figure 94. Channel Program Builder for ADDRTR ~-- CCW chain built to 


write EOF record in independent overflow area for add 
function. 
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CCW Builder | | 
|Control Code? ] CCW Built | Function | 


7&Filename.S+3, CC, 5 |Search identifier 


lusing the pointer 


ype tear 
|jseek/search area. 


| 

! 

066B 8 po Ler to *-8, CC ia to *-8. | 
| 

| 


: > 
SLI> 


E14B X'Bl', #&Filename.D+8, CC, 5 |Search identifier equal (multiple-track) 
{the track index for the last normal entry 

lusing information in the work area for the 

current track index normal entry count 


| | 
| 
| | 
| : 
| field. | 
| 066B X'O08"', Pointer to *-8, CC TIC to *-8. | 
| land SLI, 5 | | 
| 154C X'06", *&Filename.D+40, CC, Read data (last track index normal entry) jf 
{10 into work area for track index normal entry| 
| | Idata field. | 
| 526C ao. 2&%Filename.D+16, CC iweca count (multiple-track) of last track | 
| land SLI, 10 lindex overflow entry into work area for the|l 
] | current track index overflow entry count | 
| | field. | 
| 1DOC X'O6', *&Filename.W, OO, 10 Read data (Clast track index overflow entry) | 
| | l}into random/sequential retrieval work area.| 
1 -- 8 See Notes 1 through 8 in Figures 110 and 111. 
Note: The shaded areas indicate CCWs built for RPS only. 
Figure 95. Channel Program Builder for ADDRTR -~- CCW chain built to 


read last track index entry for add function. 


CCW Builder | | 
Aeahisale Code? | CCW Built | Function | 


SECAR 1 Set Sector - fol ~ overfl 
3, CC, 5 |Search identifier e 


erflow chain 


2&%Filename.S+t 


| &8CG4B X'31', qual the ov | 
| | lusing the pointer (CCHHR) in the common | 
| [seek/search area. | 
| 066B X'O8', Pointer to *-8, CC TIC to *-8. | 
| land SLI, 5 | | 
| AA07 ime Address of IOGAREAL+t8, eeu key and data of overflow record | 
| 100, Key Length + Record |into IOAREAL+t8. | 
| |Length + 10 { | 
4 -- ® See Notes 1 through 8 in Figures 1190 and 111. 
Note: The shaded areas indicate CCWs built for RPS only. 
Figure 96. Channel Program Builder for ADDRTR -- CCW chain built to 


read overflow record for add function. 
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lccw Builder | | | 


!Control Code? | CCW Built Function 


ss : 


wes 


8CG4B X'31', *&Filename.S+3, CC, 5 'Search identifier equ 


| . —— — - ; =< 
t 2 : : 
| al for last prime datal 
| record using pointer, CCHHR, in common | 
| lseek/search area in DTFIS table. | 
| 066B an Pointer to ¥*-8, CC Ir1e to *-8. | 
| Jand SLI, 5 | | 
| 1B02 X'06", Address of IOAREAL+ Read biock into JTIOAREAL + 8 + KEYLEN. | 
| S+KEYLEN, O00, Block Size | | 
I I er SM SS NaS AR rR EN EC EY Ve Ee OE 
1 -- 8 See Notes 1 through 8 in Figures 110 and 111. 
Note: The shaded areas indicate CCWs built for RPS only. 
Figure 97. Channel Program Builder for ADDRTR -~ CCW chain built to 


read last prime data record for add function. 


CCW Builder | | 
|\Control Code?! | CCW Built i Function | 


8C4B X'31", *&Filename.S+3, CC, 5 |Search identifier equa 


l for last prime data 
record using pointer, CCHHR, in common 
| seek/search area in DTFIS table. 
066B X'O08', Pointer to *-8,; CC TIC to *-8. 
land SLI, 5 
2AC6 X'OD', Address of IOAREAL+8, Write key and data of prime data block 
CC and DC, Key Length + located at IOAREAL+8. 


Block Size 


ast prime data 
In common 


2&Filename.St+3, CC, 5 |Search identifier equ 
record using pointer, 


8C4B p dae. i Wales a 
seek/search area in DT 


ES A A SY NS a SN A AA NN SR A RNY SD SES SS tina 


066B X'08', Pointer to *-8, CC TIC to *-8. 
jand SLI, 

AA36 X'OE', Address of IQAREAL+t8, Read key and data to verify record just 
ISLI and SKIP, Key Length + written. Information is not transferred 
|\Block Size to main storage. 

1 -- ® See Notes 1 through 8 in Figures 1190 and 111. 


Note: The shaded areas indicate CCWs built for RPS only. 


Figure 98. Channel Program Builder for ADDRTR -- CCW chain built to 
Pies ace of prime data records and verify for add 
unction. 
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[cc Builder | | | 


[Key Length + 10 Sueiarou Causey peCoreu. ay MORK L. 


ae Code! | CCW Built Function | 
| 8C4B X'31', 2&Filename.S+3, CC, 5 Search identifier equal for is | 
| | lindex entry using pointer, CCH | 
| | Icommon seek/search area in DTF | 
| 066B X'O08', Pointer to *-8, CC TIC to *-8. | 
| land SLI, 5 | 
| 2A45 X'OD', Address of iad Write key and data of track index normal | 
| ICC, Key Length + 10 Jentry located at TOAREAL+ 8. | 
| E24B X'*Bl', “&Filename.Dt+16, CC, 5 |Search identifier equal (Cmultiple-track) | 
| | the track index for the last overflow | 
| | entry using the count for the current | 
| | track index overflow entry. | 
| 066B x08", Pointer to *-8, CC Be to *-8. | 
land SLI, 5 | 
| 2845 "OD', Address of WORKL, CC, Write key and data of track index | 
ks = 

| 
i Bae a ee ei a SERRE oes Si oat Penns oar any mv : OS mere one tee 
| 32GB X'31", *“&Filename.Dt+16, CC, 5 |Search identifier equal the track index | 
i | lfor the last overflow entry using the | 
| | |count for the current track index overflow| 
| | lentry. : 
| 066B on, Pointer to *-8, CC [Tre to *-8. | 
| and SLI, 5 | 
| A835 X'OE"*, Address of WORKL, Read key and data to verify record just | 
| [SLI and SKIP, Key Length + 10 |written. Information is not transferred | 
| | Jto main storage. } 

1 -- 8 See Notes 1 through 8 in Figures 110 and 111. 


Note: The shaded areas indicate CCWs built for RPS only. 


Figure 99, Channel Program Builder for ADDRTR -- CCW chain built to 
write track index entry for add function. 


CCW Builder | | 


pconts ol Code? | CCW Built ene ee. | 


Seeren. ident 44 er ‘eeusl eho aoekers 


X'31', *&Filename.S+3, CC, 5 


be oa ey zs 
| 
[ | cylinder index usSing the pointer, CCHHR, in| 
| | the common seek/search area in the DTFIS | 
| | l[table. | 
| 066B x'o8' Pointer to *-8, CC TIC to *-8. | 
| land SLI, 5 | 
| 150C X'O06', *“&Filename.D+t+40, Read data Cindex entry?) into work area | 
i 1/00, 10 for track index normal entry data field. | 
1 -- §® See Notes 1 through 8 in Figures 110 and 111. 


Note: The shaded areas indicate CCWs built for RPS only. 


Figure 100. Channel Program Builder for ADDRTR -- CCW chain built to 
read index entry for add function. 
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lccw Builder | | 


|\Control Code? | CCW Built Function 


8C4B X'31"', *&Filename.S+3, CC, 5 |Search identifier equal the master/ 
| cylinder index using pointer, CCHHR, in 
common seek/search area in DTFIS table. 


066B X'G8", Pointer to *-8, CC TIC to *-8. 
land SLI, 5 

2A45 X'OD", Address of IOAREALt+8, jWrite key and data of master/cylinder 
|CC, Key Length + 10 index entry located at IOQAREAL+t8. 


8C4B X'31'"', &Filename.S+3, CC, 5 {Search identifier equal the master/ 
cylinder index using pointer, CCHHR, in 
| common seek/search area in DTFIS table. 


AA35 X*GE', Address of IOAREAL+t8, Read key and data to verify record just 
1SLI and SKIP, Key Length written. No information is transferred 
1+ 10 to main storage. 

1 -- §& See Notes 1 through 8 in Figures 110 and 111. 
Note: The shaded areas indicate CCWs built for RPS only. 
Figure 101. Channel Program Builder for ADDRTR -- CCW chain built to 


write index entry for add function. 


CCW Builder | | 
Control Code! | CCW Built 


Function 


i 

| 8C4B X'31', *&Filename.St+3, CC, 5 |Search identifier equal the track index 

i using the pointer, CCHHR, in the common 

| lseek/search area in the DTFIS table. 

| 066B X'08", Pointer to *-8, CC TIC to *-8. 

| land SLI» 5 

| BO6C X'O5"', *“&Filename.D, CC Write data (COCR) from the cylinder 

| land SLI, 19 eo control record work area in DTFIS 
able. 


» *&Filename.Dt1l6; Search identifier equal (multiple-t 


cg ee a a a ce a es an aD and a 2 a a ye SY ee am 


| 
| E24B Ix*B1" rack) 
| lcc, 5 the track index using the pointer, CCHHR, 
| | in the work area for current track index 
| overflow entry count field. 
| 066B X'08", Pointer to *-8, TIC to *-8. 
| }C¢c and SLI, 5 
| AA35 X'OE', Address of IOQAREALt8, Read key and data to verify record just 
| {SLI and SKIP, Key Length + 10|written. Information is not transferred 
] ]to main storage. 

1 -- 8 See Notes 1 through 8 in Figures 110 and 11ll. 
Note: The shaded areas indicate CCWs built for RPS only. 
Figure 102. Channel Program Builder for ADDRTR -- CCW chain built to 


write track index overflow entry for add function. 
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[cou Parameter ® | CCW Built Function | 


0540 X'31', *&Filename.St3, CC, 5|Search identifier equal the prime data areal 
| using the pointer (CCHHR) in the common | 
| seek/search area in the DTFIS table. | 
X'O08', Pointer to *-8, CC, O|TIC to *-8. | 
X'O05',* &IOAREAS, CC,5 Write data (block) onto prime data area. | 
{Block Length® | 

z ar ¥ 


X'31', *&Filename.St3, CC,‘5|Search identifier equal to verify write 
| operation. 
X'08', Pointer to *-8, CC, O|TIC to *-8. 


X'O6',* &IOAREAS, SKIP, Read data to verify write operation. 
[Block Length® | 


ara tr ae an en ca ep i eg ig gg nS EE ———— ee e— ee 
1 -- 8 See Notes 1 through 8 in Figures 110 and 111. 
Note: The shaded areas indicate CCWs built for RPS only. 


Figure 103. Channel Program Builder for ADDRTR -- CCW chain built to 
write records for sequential retrieve function. 


lccw Parameter > | CCW Built Function | 


| 
| 


| 0601 CC, 5jSearch identifier equal the track index 

| area, using the pointer (CCHHR) in the 

| | common seek/search area in the DTFIS table. 
X'O8', Pointer to *-8, CC, O/JTIC to x*-8. 

X'06', 2&Filename.W, CC,5 10/]Read data (10-byte index level pointer) 

| } linto random/sequential retrieval area in 
IDTFIS table. 

[aes ‘1* _|Read Sector for ne 


2&Filename.St3, CC, 5jSearch identifier equal to verify read 
operation. 


X'O8', Pointer to *-8, CC, O|TIC to *-8. 


X'O6', &IOAREAS, SKIP, Read data to verify read operation. 
iBlock Size 


1 -- 8 See Notes 1 through 8 in Figures 110 and 111. 
Note: The shaded areas indicate CCWs built for RPS only. 


Figure 104. Channel Program Builder for ADDRTR -- CCW chain built to 
search track index for sequential retrieve function. 
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CCW Parameter? CCW Built | Function 
———s«X"23*, SECARG=1, CC, 1%  |Set Sector for prime data area. 
0600 X'31', 2&Filename.S+3, CC, 5/Search identifier equal the prime Saat area 
Jjusing the pointer (CCHHR) in the common 
seek/search area in the DTFIS table. 
X'08', Pointer to *-8, CC, OTIC to *-8. 


X'06',* &IOAREAS, CC,5 Read data into IQAREAS. 
|Block Length® | 


|x'22', SECARG=2, cc, 1° * _|Read Sector for xt p 
_ 1[X"23", SECARG=1, ‘cc, 1® [Set Sector to verify rec 


X'31", *&Filename.S+3, CC, 5|Search done T EEE equal ts eer read 
| |joperation. 


X'08', Pointer to ¥-8, CC, O|TIC to ¥-8. 
X*06*, &IOAREAS, SKIP, posed data to verify read operation. 


iBlock Length® 
eee ee ee 


<a pecker nthe a. 


= 


1 -- 8 See Notes 1 through 8 in Figures 110 and 111. 
Note: The shaded areas indicate CCWs built for RPS only. 
Figure 105. Channel Program Builder for ADDRTR -- CCW chain built to 


read record for sequential retrieve function. 


lpointer) into random/sequential 
lretrieval area in DTFIS table. The 
{data field is then moved from the 
lrandom/sequential retrieval area to 
|lthe common seek/search area for the 
Inext search. 


| | CCW Builder’? | | | 
itl ata ALR Code | CCW Built | Function | 
} | 7441 Fata &KEYARG, CC, Key eaocn key equal or high the master/ | 
| | Length lIcylinder index. Key supplied by user | 
| | | lin DTFIS table. | 
| | 0C40 kos", Pointer to *+16, CC, tie to *+16. | 
| | |Record Length | | 
| BOGB rarer 2&Filename.St+3, CC, siRead home address into common seek/ | 
| | | [search area in DTFIS table. | 
| 506B X'92", *&Filename.S+3, CC Read count (multiple-track) - CCHHR - | 
| land SLI, 5 {into common seek/search area in DTFIS | 
| | i |table. | 
| 7441 X'69', &KEYARG, CC, Key Search key equal or high the master’ | 
| {Length lcylinder index. Key supplied by deere 
| 0440 X'08', Pointer to *-16, CC, |TIC to *-16. } 
| {Record Length | | 
| 110C X'06', *&Filename.W, OO, 10 Read data (10-byte index level | 
| | 
| | 
| | 
| | 
| 


et cee a STE APS 


-_ 
I 
I 


®& See Notes 1 through 8 in Figures 110 and 111. 


Figure 106. Channel Program Builder for ADDRTR -- CCW chain built by S$$BSETL (1) to 
search MI for sequential retrieve function. 
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| ccw eeeeae | | 
Label|Control Code 


| CCW Built ] Function | 
| 806C X°31', *&Filename.S+3, CC Search identifier equal the track | 
| land SLI, 10 lindex using the 10-byte pointer in the| 
| | | |[common seek/search area. | 
| 0640 X'08", Pointer *-8, CC; TIC to *-8. | 
| Record Length | | 
| 126C X'06', &IOAREAS, CC and Read data (10-byte track index | 
i ISLI, 10 lpointer) into IQAREAS, input/output | 
| | jarea for sequential retrieval supplied| 
| | [by user. | 
| 506B X"92", *&Filename.S+3, CC Read count (multiple-track) - CCHHR - | 
| | Jand SLI, 5 linto common seek/search area in BDTFIS | 
| | |ltable. | 
| 7441 X'69', &KEYARG, CC, Key Search key equal or high the track | 
| Length lindex. Key supplied by user. | 
| 0240 X"08', Pointer to *-24, TIC to *-24. | 
| {|CC, Record Length | | 
110C X'06', *&Filename.W, OO, 10 {Read data (10-byte pointer) into | 
| | | lrandom/sequential retrieval area in | 
| | } IDTFIS table. The data field is then | 
i | | J}moved from the random/sequential 
| | | {retrieval area to the common seek/ | 
| | lsearch area for the next search. | 
1 -- ® See Notes 1 through 8 in Figures 110 and 111. 
Figure 107. Channel Program Builder for ADDRTR -- CCW chain built by SS$BSETL (1) to 


search TI for sequential retrieve function. 


CW Builder? | | 


the pr e da 
area using the pointer CCCHHR) in th 
| | lcommon seek/search area in the DTFIS 
| | ltable. 
066B X'08"', Pointer to *-8 ,CC TIC to x*-8. 
land SLI, 5 | 
416C X'1l2', *&Filename.W, CC Read count into common seek/search 
land SLI, 10 larea in the DTFIS table. 
6441 X'29" or X'69', &KEYARG, If KEY is specified in the SETL macro 


and/or records are unblocked, this 

CW searches key equal the prime data 
r@a. If GKEY is specified in the 

ETL macro and/or records are blocked, 
his CCW searches key equal or high 

he prime data area for the starting 


CC, Key Length 


i, LS SS ae So 


[CC and SLI, 


A A SS SY a SY NE 


120e X'06", &IOAREAS, OO, Read data (Cblock) containing 
Block Size istarting record into IOQAREAS 
1 -- 8 See Notes 1 through 8 in Figures 110 and i11l. 
Figure 108. Channel Program Builder for ADDRTR -- CCW chain built by $SS$BSETL (1) to 


find first record in prime data area for sequential retrieve function. 
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|}CCW Builder | | 


poorea eentror Code? | CCW Built | Function | 
ISTRI3 804B X'31", *&Filename.St3, CC, 5|Search jidentifier equal the overflow | 
| [chain using the pointer (CCHHR) in thel 
| | Icommon seek/search area in the DTFIS | 
| |table. | | 
0640 X'08', Pointer to *-8, CC, TIC to *-8. | 
| {Record Length | | 
| 6441 X'29" or X"69", &KEYARG, If KEY is specified in the SETL macro,| 
| or [CC, Key Length {this CCW searches key equal the | 
| | 7441 | eee eae chain for the starting | 
| | | record. If GKEY is specified in the | 
| | | |SETL macro, this CCW searches key | 
| | | lequal or high the overflow chain for | 
| | | {the starting record. | 
] | 112C rear 2&Filename.W, SLI, ioleesac data (10-byte sequence link | 
| [ | |\field) into random/sequential | 
| | | lretrieval area in DTFIS table. This [ 
i | | iCCW is executed when the required | 
| | loverflow record is not found in the 
| loverflow chain. | 
| | 1203 x06, &IOAREAS, OO, Resa data (sequence link field plus | 
| | |Record Length +10 |lstarting record) into IOAREAS. This | 
| | [CCW is executed when the matching key | 
t | I lis found in the overflow chain. | 
1 -- §®& See Notes 1 through 8 in Figures 110 and 111. 
Figure 109. Channel Program Builder for ADDRTR -- CCW chain built by $$BSETL (1) to 


find first record in overflow chain for Sequential retrieve function. 
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[Note 13 


he CCW builder control code references information in the DTF DSECT section of the 
SMOD assembly. 


+ 
I 
The first character of the control code references an operation code at IJHCSTRI. 
+ 
random retrieve function or IJHAHRAA for add function. 

T 


he third character of the control code references the following information: 


Control"Character CCW"Flag"Field Meaning 
0 X*'OO' End of CCW Chain 
2 X'20' SLI (Suppress Length Indicator) 
3 X'30' SLI and SKIP (Suppress data transfer) 
& X'40' CC (Command Chaining) 
6 Xx'60' CC and SLI 
7 x? 70" CC, SLI, and SKIP 
A X*AO' SLI and DC (Data Chaining) 
C Xx'Cco' CC and DC 
e fourth character of the control code references a byte count Clength) field 
IJHCRESZ. 


Filename = DTF name supplied by user. 

Filename.X = X is suffix supplied by DTFIS for unique DTF labels. 

ote 3: 

he CCW parameter is located in the ISMOD assembly. 

he first byte of the parameter is the command code. 

earch the track index. In thiS case, the second byte iS an indicator to the channel 
rogram builder that the CCW chain is to Search the track index. 


ote 4: If the file contains unblocked records, the command code is modified to Read 
ey and Data, or Write Key and Data. 
ote 5:3 If the verify option has not been specified, the command chaining bit is not 


te 6: If the file contains unblocked records, the byte count field contains the 


I 
t 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
1 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
Iphysical record length plus key length. 


Th 
at 
N 
& 
& 
N 
T 
t 
The second byte of the parameter contains flags with the exception of the chain to 
s 
p 
N 
K 
N 
s 
No 
p 


Figure 110. Channel Program Builder for ADDRTR -- Notes 1-6. 
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iThe CCW chains are built by the B-transients, $SBSETL and S$BSETLI. ‘The CCW builder 
|control code references information in the $$BSETL and SSBSETL1 assemblies. 
|The first character of the control code references an operation code at IJHROP. 


[Note rs | 


{The second character of the control code references a data area at IJHARA. 


I\The third character of the control code references the following information: 


Control Character CCW Fla Field Meanin 
0 x'oOo" End of CCW chain 
2 X"'20' SLI (Suppress Length Indicator) 
4 x"'40"' CC (Command Chaining) 
6 x*"60° CC and SLI 
pe yroueEn character of the control code references a byte count (length) field at 
t 8: 


ote 
f the first character of the CCW builder control code is an "F™, it indicates that 
his is a sector control type of CCW. 
h 
i 
i 


econd character of the control code is a displacement into the sector arguments 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


e s 
ields in the DTFIS extension to indicate which sector argument field is to be used 
ith this CCW. 
he third character of the control code references the following information: 
Control Character Meaning 
1 Suppress sector calculation. 
2 Prime data overflow CCW chain. 
4 Track index CCW chain. 
§ Cylinder index/master index CCW chain. 
The fourth character of the control code references the following information: 
Control Character CCW Command Code Meaning 
0 X'22"' Read Sector CCW 
1 > er ape oe Set Sector CCW 
When building a sector control type of CCW, the command chaining flag bit is always 
turned on in the CCW, and the CCW byte count field is always set to l. 
Figure 11l. Channel Program Builder for ADDRTR -- Notes 7-8. 
ISAM INITIALIZATION AND TERMINATION on these statements, and stores the 
PROCEDURES information in the label information area. 
The open monitor logical transient, 
SSBOPEN2, reads the DASD label information 
When files are opened for indexed into the label save area in main storage 
sequential (DTFIS) and the file iS on more for use by the ISAM open/close logical 
than one volume, all volumes must be transients. 
opened, before processing of the file 
begins. All labels are checked/written at The extents in the DASD label 
the initial file open. information record are checked for overlap 
on each other. If overlap exists, a 
Job control accepts label information message is issued, and the job is canceled. 
previously supplied on VOL, DLAB, and XTENT Checks are made to determine if all the 
statements (not valid for the 3330 family) correct packs are mounted, if serial 
as well as information on the simplified numbers match and if any extent limits 
DLBL and EXTENT statements, Job control overlap the VTOC. 


reads the DASD label information supplied 
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The extents for the master index Cif 
specified) and cylinder index are checked 
to determine if they are contiguous, and 
the limits are Saved. The routine checks 
the prime data extents for continuity, and 
a check is made for the last prime data 
extent. The overflow extents are checked 
and saved for future reference. 


For output, file labels are created and 
written in their appropriate locations and 
sequence, and the extent information is 
inserted tn the labels. The format-2 label 
for the file is read, and the DTF table is 
updated for each function. A DSKXTN table 


is created, which is located at the end of 
the DTF table. It cantains the logical 
unit and cell number for each extent. This 
table is used by logical I0CS to reference 
the extent information in the DTF table. 

When the file is closed, the format-1l 
and format-2 labels are updated from the 
DTF tables. Then the open switch is set 
off, and control returns to the close 
monitor or to the user. 

For a more detailed description of label 
hanes ine see VSE/ZAdvanced Functions DASD 
abels. 
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Chart O02. ISAM Open 


From Open Monitor 
$$BOPEN2 


1. Get extent 
addresses. 


RETRVE file type? 
YES 


$$BORTV2 
1. 


$$BOIS01 


1. Check DASD label 
information for 
extent overlap. 


Process extents. 


$$BO01SO2 


1. Check DASD 
assignments and 
extent overlap on 
VToc. 


2. Check duplicate file 
labels in VTOC. 


3. Check incoming 
extents against all 
existing files in the 
VTOC for overlap. 


. End of extents? 


1. Check extents for 
different logical 

units assigned to 

same physical unit. 


1. Save extent limits. 


2. Build DSKXTNT 
table. 


. Point to next extent. 
$$BOISO6 


1. Check labels for 
input files via CVH. 
2. Create labels for 


output files via 
CVH. 


$SBOISRP 


. Provide RPS 
support if required. 


. Temporarily move 
the OPEN table to 
the end of the LTA. 
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$$BO01S07 


. Restore the OPEN table to its original location. 
2. Set up common part of DTF table. 
. Load-create type file? 


. Update DTF table with information from 
Format 2 label. 


. File protect? 


. Load type file? 


YES > NO 


$$BOISO9 $$BOFLPT 


1. Put extent informa- 
tion in JIBs to file 
protect DASD file. 


©) 


1. Initialize for the 
Prime data in core 


1. Maintain the 
integrity of the 
independent 

overflow area. 


. Load-create type 
file? 


1. Validate address of 
last prime data 
record. 


2. More files to be 
opened? 


add function. 


NO 


SVC 2 FETCH SVC 11 
S$$BOPEN To Problem Program 
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ISAM OPEN/CLOSE LOGIC CHART O2 


For input and output files, the initial 
steps to open a file are the same. The 
SYSRES DASD label information is set up, 
and the extents are checked for overlap on 
each other and the VTOC. A check was made 
previously to determine if all the packs 
for the file have been mounted by checking 
all volume labels against the SYSRES DASD 
label information in the label Save area in 


main storage. 


All extents for each volume are checked 
ainst the VTOC limits and for overlap 
ith each other. This checking is done by 
e Common VTOC Handler (CVH) residing in 
e SVA. If done for an output file, the 
ilename is also checked for duplication. 
The extents are checked against the SYSRES 
DASD label information, the extent limit 
groups are saved, and the DSKXTIN (logical 
unit and cell number) table at the end of 
the DTF table is built. The labels are 
checked, and the extent limits are inserted 
for input files. For output, the labels 
are created and written. The DTF tables 
are updated, and the routine returns 
control to the problem program or to the 
open monitor. 


See VSE/Advanced Functions Diagnosis 
Reference: LIOCS Volume 4 for details of 


the Common VTOC Handler. 


Soe wu 


For input and output files the steps to 
close a file are the same. The format-l 
and format~2 labels are updated and written 
back in the VTOC via CVH. Control returns 
to the problem program or to the close 
monitor. 


SSBOISOI: ISAM Open Phase 1, Charts LA-LB 
Objective: To check the DASD label 
information. 

Entry: From the open monitor, $$BOPEN. 
Exit: To $$BOISO2 or to $$BOMSG1 Cif an 


error condition occurs). 


Method: This phase determines the address 
of the first and last extent in the SYSRES 
DASD label information in the label save 
area. It determines if this i 
of a file, and turns on an indicator if it 
phase then clears the reserved 
the SYSRES DASD label information 


is an ADD or ADDRTR type file>, this 
se computes the number of tracks of the 
pendent overflow extent limits on 

r the 2311, 2314, or 2319 devices and 
the result. It then fetches 


e 
he 
res 
Orsoe. 


Indexed 


SS$BOTSO2: ISAM Open, Phase 2, Chart LC 


Objective: To determine if a DASD has been 
assigned to the file, if the format-5 label 
indicator is on, and if the extent limits 
overlap the VTOC (via CVH). 


Entry: From $$BOISO1. 


Exits: To $S$$BOIS0O4, or to $SSBOMSG1 (Cif an 
error condition occurs) 


Method: This phase determines if the 
extents for each DASD volume overlap the 
VTOC or themselves. The Common VTOC 
Handler (CVH) is invoked and a return code 
is passed back. RC=0 indicates there was 
no overlap. Depending on the overlap, the 
appropriate message jis issued. After all 
extents have been checked, this phase 
fetches $$BOIS04 to continue processing 
extents. 


SSBOISO4: ISAM Open, Phase 4, Chart LD 


Objective: To check extents for different 
od yGat units assigned to the same physical 
units. 


Entry: From $$BOISO2. 
Exit: To $$BOISO5. 


Method: This B-transtent gets the logical 
and physical unit assignments for the 
index, prime data and independent overflow 
type extents. Tt checks the extents for 
different logical units assigned to the 
Same physical unit. If this condition 
exists, the logical unit assignment of the 
extent in the SYSRES DASD label information 
located in the label save area is modified 
to correct this condition. This process 
continues until all extents have been 
checked. 


S$SBOISO5: ISAM Open, Phase 5, Charts LE-LG 


Objective: To check the extents for valid 
ISAM format, to save extent limits and to 
build the DSKXTN table containing the 
logical unit and cell number of each 
extent. 


Entry: From $$BOISO4. 


Exit: To $$BOISO06 or to $$BOMSG1 when an 
error condition occurs. 


Method: This phase first determines the 
extent type (Coverflow, index, or prime 
data), checks the type for validity, and 
branches to the appropriate routine to 
process the extent. If the extent type is 
not for an independent overflow, index, or 
prime data area, an error message is 
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e message writer, 
d to write the message 


If an index type extent is indicated, 
this phase determines if a master index has 
been specified along with a cylinder index. 
If there 1s a master index and a cylinder 
index, they must be assigned to the same 
Physical unit and they must be contiguous. 
If both conditions are satisfied, the 
limits for the master and cylinder indexes 
are saved and the next extent is processed. 
If either condition is not met, an error 
message is initialized and the message 
writer is fetched. 


If an overflow type extent is indicated, 
this phase saves the extent limits and 
builds an entry in the DSKXTN table. The 
DSKXTN table is located at the end of the 
DTFIS table and is used by ISAM to 
reference the extent information in the DTF 
tables. It contains the logical unit and 
cell number for each extent. 


If a prime data type extent is 


indicated, it checks the first prime data 
extent upper limit to determine if more 
prime data extents are allowed. If more 
prime data extents are allowed, the phase 


checks the remaining prime data extent 
limits for continuity, and checks for the 
last prime data extent. 


After all extents have been processed, 
this phase checks the index extent sequence 
numbers and fetches $$BOISO6 for execution. 


SSBOISO6: ISAM Open, Phase 6, Charts LH-LI 


input files, checks format-l 
labels and stores extent information in 
them. For output files, creates format-l 
and format-— labels and stores extent 
information in format-l labels. 


Entry: From $$BOISO5 or $$BODSMW. 


Exit: To $$BOISRP, $$BODSMW, or SSBOMSG1 if 
an error condition occurs. 


Method: If this iS an 
phase sets up the 44-b 

the SYSRES DASD label 

key, and reads the matc label 
from the VTOC Cvia CVH). It checks the 
format-l 1 moves the extent limits 
into the label, writes the updated format-l 
label in the VTOC, and increases the volume 
sequence number by one. It continues 
processing until there are no more extents. 


If this is an output file, this phase 
creates a format-1 label and then a 
format-2 label. For a description of the 


Objective: For 


input file, this 
yte file name from 
information as the 
ng format—l1 


format-1 label and the format-2 label refer 
VSE/Advanced Functions DASD Labels. 


After creating the format-l and format-2 
labels, the phase increases the volume 
sequence number and continues processing 
until there are no more extents. 


If this 1s a mixed input/output file, 
the phase updates the format-1 label and 
writes it back in the VTOC. 


For an extend file, the format-1 label 
s checked for the data security indicator. 
f it is on, and the data security message 
as not been issued, it is issued via a 
etch of $SBODSMN. 


or a create file, the format-l1 label is 
t with the data security indicator on 
ata security has been requested. 


u 
f 
All communication with the VTOC in this 
Phase 1s done by the CVH. 


SSBOISRP: ISAM Open, RPS Phase, Chart LJ 


Objective: To provide RPS support if the 
device containing the prime data and the 
supervisor support RPS. 


Entry: From $$BOISO6 or S$S$BORTV2. 


Exit: To $$BOIS0O7. 

Method: The PUBs for the devices containing 
the index and the prime data are checked to 
see if they support RPS. If either or both 
do, the appropriate bits are set on in the 

DTFIS. Also, a check is made to see if the 


supervisor supports RPS. If either the 
Supervisor or the device containing the 
prime data does not support RPS,» control is 
Passed to $$BOISO7. Otherwise, the 
following operations are performed: 


1% The RPS switch in the DTFIS is turned 
on. 


o« A 384-byte area is obtained in th 
partition GETVIS area for the RPS 
extension (see Figure 112). 


Ss The name of the required RPS ISMOD 
Superset is determined and the superset 
is loaded into the SVA. 


G. The BDTFIS and the RPS DTFIS extension 
are initialized for RPS support. 


ae Control is passed to S$BOISQ7. 
OPEN table is moved to the end o 
LTA so that $$BOISO0O7 can be load 
one contiguous phase. After Cee 
} 


e user 
DTFIS 


CT 
f 
ed 
OI 
gets control it moves the OPE ab 
back to its original location. 
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fe (0) 


RPS Channel Program 


GG (90) | 
ector values (5) 


remand 


176 (BO) 1180 (B4) 

Address of original{Address of original 
channel program llogic module 

184 


(B8) 


72 Byte Register Save Area 


A ONL LY EL NT CY AT A LS A ET NS AY ONT CY ES EN TN NY RET NT ASI 


| 
| 
| 
| 
| 
| 
[1 
|S 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


256 (100) 
Work Space 
384 (180) 
Figure 112. RPS DTF Extension Work Area 


SSBOISO?7: ISAM Open, Phase 7, Charts MA-MD 


Objective: To restore the OPEN table to its 
ortginal location, to read the Format 1 and 
Format 2 labels for this file, and update 
the DTFIS table for each function. 


Entry: From $$BOISRP. 


Exit: To $$BOISO08 or S$BOISO9 for 
Toad-create files. To $SBOFLPT for file 
protection. To $$BOMSG1 if an error 


condition occurs. 


Method: » 
moves the prime data upper limit 
extent save area to the DTF table 
load-extension, add, retrieve, an 
e 
he 
e 


For a load-create file 


add-retrieve files, it reads th 
and format-2 labels. It then c 
protection, and whether th 
ile. If there is no fil . 
is fetched. If there , 
ion and it is a load file, 
hed to write an EOF record 


—O OM -h 
wus oo —: 

OW 
sat+TOOM 


beginning of the independent overflow area 
Cif one is specified). If there is no file 
protection and it is not a load file, 
SSBOISO8 is fetched. For add and 
add-retrieve files that are already opened, 
a check is made for the track hold 
specification. if HOLD=YES is specified:s 
S$S$BOMSG1 is fetched to print out error 
message 4269I FILE IS OPEN FOR ADD. 


$$BOISO08: ISAM Open, Phase 8, Charts ME-MF 


Objective: To build CCWs in the high order 
bytes of IOAREAL, and to update the prime 
data in-core add section of the DTF table 


Entry: From $$BOISO7 or S$SBOFLPT. 


Exit: To $$BOISO0O9 or to $$BOMSG1 if an 
error condition occurs. 


Method: This phase determines if the prime 
data in-core add function is specified in 
the DTFIS table. If it is specified, this 
phase increases the size of IOAREAL Coutput 
area used for loading or adding records to 
a file) to permit the writing and reading 
of more than one phySical record on or from 
a DASD (Direct Access Storage Device) per 
EXCP (Execute Channel Program). 


The phase first calculates the maximum 
number of prime data records that can be 
read into or written from main storage at 
one time. It then calculates the starting 
address of the CCW build area in IQAREAL 
and aligns this address on a doubleword 
boundary. It builds the following CCWs to 
write and read more than one physical 
record per EXCP 


1 ee For a write: 


A. CCW h identifier 
he prime 


t 
ecores in 


X'31", Pointer] 
to IOAREAL, i 
Command | 
Chaining, 5 | 
x 
t 


| 

| 

| | 
| | 
| | 
% | 

o Sco Ses eae ieee 
e. CCN xX'08', Pointer|TIC to address { 
| to Read CCWs lof read CCWs | 
| (see 2.) lin DTF table. | 
1D CCW xX'OD', Soiaverlueiee key and | 
| to Key Field {data of prime [ 
| of IOAREAL, jdata record in | 
Command ite Rene | 

Chaining, Key | 

Length + Block] | 

| Size | | 
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ois For a read: 


A. CCW X'31", 


Pointer |Search identifier 
to Seek/Search|equal the prime 


Address Area, data area using 
Command 
Chaining, 5 
seek/search 
jaddress area in 


| 

| 

| 

| 

| the DTF table. 
IB. CCW xX'08"', Pointer pie to *-8. 

| to *-8 
| 

| 

| 

| 

| 

| 


>< 


C3 TLE 5 Cae count, key, | 


to IDARE d data of prime| 
Aor into | 


oO 
Oo 
=| 
| 
Qo 
a} 


an 
da 
I0 


> 
J 
< J 
ia 


[data 
i | IOAREA 
e 

| 


K 
ength + 
| lock Size 


This phase continues to build the CCWs for 
a read or awrite until the count for the 
maximum number of prime records in main 
storage reaches Q. This count is reduced 
by 1 each time the CCNs for a prime data 
record are built. 


col mal oT a) 


The CCWs built for a read or a write are 

ceded by a long seek CCW and TIC to 

her 1 or 2 depending on the operation to 

performed. When the last read CCW is 
ilt, its flag field is set to OQ, 

icating the end of the CCW chains and 

OISo0? is fetched to search the 

ependent overflow area Cif specified) 
the EOF record. 


S$SBOISO?3: ISAM Open Integrity Phase 1 


Charts MG-MI 


Objective: 


° For a load type file, to write an EOF 
record at the beginning of the 
independent overflow area. 


e For an add type file, to search the 


independent overflow area for the EOF 
record. 


Entry: From s$sBOISO7 or $$BOISO08. 


Exit: To the TES processor, S$$BOPEN, to 
S$SBOIS10, or to the problem program. 
Method: This B-transient first determines 
if the file has an independent overflow 
area. If there is no independent overflow 
area specified, a test for a load-create 
type file is made. If it is a load-create 
type ile, a test for more files to be 
opened iS made. If more files are to be 
opened, S$$BOPEN is fetched for execution. 
If no more files are to be opened, control 


is returned to the problem program. If it 
is not a load-create type file, $$BOIS10 is 
fetched for execution. 


If an independent overflow area is 
specified, a test for file type is made. 
If it is a retrieve or load-extend type 
file, control is returned to either the TES 
processor (S$SBOPEN) if more files are to be 
opened or to the problem program. 


If it is a load-create type file, an EOF 
record is written at the beginning of the 
independent overflow area and a test is 
made to determine if a new independent 
overflow extent has been specified. If it 
has not been specified, the number of 
tracks in the independent overflow area is 
calculated and stored in the DTF table and 
control is returned to either the TES 
processor (SSBOPEN) if more files are to be 
opened or to the problem program. If a new 
overflow extent has been specified, control 
is returned to either the open monitor or 
to the problem program. 


If it is an add type file, the 
independent overflow area is searched for 
the EOF record. When the EOF record is 
found, the number of tracks in the 
independent overflow area is calculated and 
stored in the DTF table, the last prime 
updated, and $$BOIS10 is fetched to 
validate the last prime data record 
address. 


SSBOIS10: ISAM Open Integrity Phase 2 
Charts MJ-MK 


Objective: To validate the last prime data 
record address by scanning the prime data 
area for the end-of-file (CEQF) record. 


Entry: Fram $$BOISO9. 
SSBOPEN, or to 


Exit: To the TES processor, 
the problem program. 


Method: This routine searches for the EOF 
record in the prime data area. When the 
EQF record is read, the last prime data 
record address is saved in the DTF table 
and control is returned to either the TES 
processor (SSBOPEN) if more files are to be 
opened or to the problem program. 


SSBCISOA: ISAM Close, Charts NA-NC 
Objective: To close the file by updating 
the format-1 and format-2 labels with 
information from the DTFIS table. 

Entry: From the close monitor, S$S$BCLOSE. 
Exit: To the problem program or to the 


close monitor, S$$BCLOSE, if more files are 
to be closed. 
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Method: If a load-create type file is to be 
closed, this phase updates the format-l 
label with information from the DTFIS 
table, and writes the updated label back in 
the VTOC. It then updates the format-2 
label with information from the DTFIS 
table, and writes the updated format-2 
label back in the VTOC. 

For all other type files, this phase 
updates only the format-2 label with 
information from the DTFIS table. It then 
writes the updated format-2 label back in 
the VTOC. If more files are to be closed, 
the close monitor, S$BCLOSE, is fetched. 

If no more files are to be closed, control 


returns to the problem program. 


All communication with the VTOC in this 
Phase is done by the CVH. 


SSBORTVI1: ISAM RETRVE Open, Phase 1 
Charts ND-NF 


Objective: To open the RETRVE part of the 
DIFIS table by reading the format-1 label 
to get information needed for the table. 
Entry: 

« From the open monitor, $$BOPEN2. 


e om the data security message writer, 


BODSMNW. 


m SSBORTV2 if a new extent on a 
ferent logical unit has been found. 


os 


“0 


i To S$$BORTV2 upon normal completion. 
FLPT for DASD file protection. To 

B 1, if messages are to be written on 
S To $$BODSMW to write the data 


curity message. 


Method: A test 15 
entry was made to 
other then $SBOPEN If so, control | 
branches to a predetermined location within 
this phase. If not, processing continues 
inline. Next, this phase computes the 
length of the incoming DASD label 
information and gets the address of the 
first extent. The first-time switch is set 
on, and a check is made for the expiration 
date in the DASD label information. If the 
expiration date is not present, this 
routine gets the retention period for the 
DASD labels and finds the expiration date. 


The format-1 label is then read and 
checked for the data security indicator 
If the file has not been opened, $$BODSMW 
is fetched to print the data security 


Exits 
To $$BO 
$S$BOMSG 
SYSLOG 
se 

de to determine if 

is phase from a phase 


ma 
thi 
2. 

t 


message. After determining the number of 
extents in format-1l label and getting the 
address of the first extent, this phase 
fetches S$$BORTV2 for execution. 


S$$BORTV2: ISAM RETRVE Open, Phase 2, 
Charts NG-NH 


Objectives: To open the RETRVE 
DTFIS table by reading the for 
to get information needed fo 


ra) 
r 
To insert entries in the DSKXT 
located at the end of the DTF 


Entry: From $$SBORTVI1. 


Exits: To $$BOISRP upon normal completion. 
To $$BOFLPT for DASD file protection. To 
$$BOMSG1 if messages are to be written on 
SYSLOG. To $S$BORTV1 if a new extent on a 
different logical unit is found. 


Method: A test is made to determine if this 
SHEE was entered from a phase other than 
SSBORTV1. If it was, control branches to a 
predetermined location within this phase. 
If it was not, processing continues inline. 


This phase then gets the address of the 
first extent in the format-1 label and 
tests to determine if an extent is present. 
If an extent is not present, control 
branches to read the format-2 label. If an 
extent is present, a test iS made to 
determine if the first prime data extent 
SWitch is on. If it is on, an _ entry is 
made in the DSKXTN table. If it 1S not on, 
a test is made to determine if the extent 
is a prime data extent. If it is a prime 
data extent, the extent sequence number and 
the extent lower limit are saved and the 
first prime data extent switch is set. 


The routine then makes an entry in the 
DSKXTN table for each extent. Only three 
extents are possible per volume for an 
indexed sequential file: the 
master/cylinder index area, the prime data 
area, and the independent overflow area. 
Each entry in the DSKXTN table is four 
bytes, containing two bytes of the logical 
unit and two bytes of the cell number. The 
location of the entry within the table is 
determined by multiplying the extent 
sequence number by 4, and adding the result 
to the starting address of the table minus 
; If the DSKXTN table is full, an error 
ondition exists and a message is issued to 
hat effect. 


After the DSKXTN entry is made, a test 
is made to determine if the file-protect 
option has been specified. If it has, the 
routine sets up the extent for file protect 
and fetches S$$BOFLPT. 


4 
Cc 
t 


If the file-protect option has not been 
pecified or if this phase was entered from 
SBOFLPT, this routine gets the address of 
he next extent tn the format-l1 label, and 
hecks to determine if all extents in the 
label have been processed. If they have 
not been processed, control returns to 
process the next extent. 


O trou 
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When all extents have been processed, A check is made to determine if all the 
the first time through B-transient switch extents have been processed. If they have 
is checked. If on», the switch is set off not been processed, this routine scans the 
and a test is made to determine whether SYSRES DASD label information in the label 
this is the first volume. If it is not the Save area to find the next extent on a 
first volume, an error message is issued. different logical unit», or the end of the 
If it is the first volume, a test is made extents. If a new extent on a different 
to determine if the format-2 pointer is logical unit is found, control returns to 
present in the format-1 label. If it is SSBORTV1 to read the volume label and 
not present,» an error message is issued. process the extents for that logical unit. 
If the format-2 pointer is present, the 
format-2 label is read» and the master When all extents have been processed, 
index and cylinder index lower limits from this phase sets the file-protect option 
the label are saved. indicator off Cif it is on) and exits to 


Phase $SBOISRP. 
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3 
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An instruction, or group of instructions, that 
changes portion of a routine or initializes a 
routine for a given condition. 


A group of operstions not detwiled in the 
flowcharts in this manual, such es user rou- 
tines. 


Any function of an input/output device or 
Program, usually branching to an 1/0 routine 
to perform the function stated in the block. 


Points where tha program branches to alter- 
nate processing, bessd upon variable con- 
ditions wich as program switch settings and 
test results. 


Tha beginning or end of a program or routine. 


On-pags connector. An entry from or en exit 
to another function on the same flowchart. 
The location in the connector identifies the 
Block to which entry on a chert is made. 


Oft-page connector. An entry from, or exit 
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outgoing 
multiple entries, an asterisk is pieced in the 
connector and the locations from which 
control is passed are listed nearby. 
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Chart CB. SSBODACL: DA Close Input/Output (Part 2 of 3) 
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Chart DG. ISAM LOAD: SETFL Macro, Phase 2, $$BSETFF 


SOSS4 LOSS SOSCES 
® is 0a e 
© SETFL MACRO 8 
$ TF ® 
$00 666854600008 eee eee 
« s s s 2 
é * 83 * * Be & 
. e * * o 
be eee soe 
ey x x x 
Seassbisvessesass $0069) B40 CeR008 $00008 400000 c0060 
€ mobx’ bum RACKS ® GET THE NO. * onesel FLAC pire 
s CF T@AacKs s SOF TRACK nde x * 
T @ PER CYLINDER © e my 
Ses banc " : s kOS BRINE e wale Cow ° 
: A e ® OAaTA OEVICE © s Yo JEP a 
ooenes Beto ees SHSSSOESESESOSS OS 02099 808S00 Senna 
x SUBTCT x x 
srocey ecconp” F ddua © Ldn daceabududeddeaad bbe ean cnsethactage 
° 6§ R con : suaTsact NO *SET @YTE COUNT © 
® BER IN @ SySYL OVER Flow $ SIN TRACK INDEX ¢ 
. § t EARCH *¢ eTRAC ROM _NO.* « 6<¢Cu a 
e fn AREA * ° CF ve taee DER © © LNG Plus 14 (6 
s 1) 6 Ps CYLINDES e Ps 2 
SOO0SSSbE00 Sn edes 99 69S96 0448 C0888 Pyrittiior tire iit yy 
eee0 . 7 4 
* Cl &.X. ° ° 
seee e e 2 
TORKL x x x 
seevepisecescerss Se0s003 eeteccesee 008000408008 e8000 
s KEY s SSTORE RESULT AS® ® acl TIC s 
bot | TH UNT® NO, OF CYLINDER? ° Soy TO ° 
° 9 . 8 soven Ou Thacxse e wITe Po * 
® WITry TH ® elm COCR QUTOUT © * HA IN * 
s c cow s ° ACEA s s e 
$080669006 6800000 0000000849 0000408 Sevesesosesessons 
ae i ; 
“« °° "sb fai saseseenes seteee ess 080000 it "oe, Bee 0055 ssenoseese 
xey s SE 4s ° s, EY TIC s 
paunl e,. WO ® : s seat cn e WRITE a, YES : we e 
e. gr .”] J eg erence NS ThOEX CO Taken * ® cca 7 s ocyer rey gai el alae cOrNt Ta Sd 
Pd s s fI raat e e S°EC VESTEY * 
: e ° . "ee. - : MAIN a 
ae. o ssoossessoscosece Seessevessoesesse Le 42 SOSSeeseseseesens 
s YES oe eo ° e 
x ° ° ° 
be esse ° eNecccvcccseceesessneseneens 
e x x 
x ebdl e GET ada o%e NOVERF o*e 
Seecer 1 becseseses e e 63 s. 64 a, 
® s oece eRELOCAT ES, eCYLIMNOES®, 
s GET abo id «* 54 MAITE es. # be tla - NO 
s s e COUNT K Ve o® ®, npr ePecce 
s 1OMEM 8 sanO bara» *. SEC. : 
s s *,.CCu'S.% eo, e os 
Seeesesousooecese 6. .® e. x 
° e ® YES onee 
e e oe s s 
= e e s JIS a 
e es e ° a 
Pe . = oose 
i i : 
000006 lOeeoessees $40906393000068 08 Oey a, sec hernseseeseses 
s s s78F act k FROMe . e, 
s SAVE KEY ® * uey OF De ® TI ®. YES : CEP ACE SEEK P 
e LENGTH * # NO. AND STORE © © .OUMMY PCD ON cPecccceeeX A * 
® wus 1 s ® RESULT js Tl « @,. TRACK O .* : uo-np 8 
s s * My S$RCH ADORS a, o% Ld 
Seegenesesscooece 660000290668 4906¢ o. .* sedeneeceaveesson 
° . ° NO . 
oe Ld x e 
x x o@, SE YCC x 
SEO} lL Seeeesenes so SesH3eseeseeere He *, O80 0045 OteoCE SESE 
s » s MOVE ADDR « OF © Phd s. e SET tla ta s 
s 5 aD K AREA ¢ SIQAREA Q AT Ae o% DASO *. MO ° be bby dT ® 
EM, s s sOpRe $ FIELO © eFILE PROTECT .PecccncaeX® ® 
M4 BITh 1eirs « . F TR ING Ld S, SPEC o% snueay ‘yetre aANDe 
» es MMY WRITE CCHe se. @ VECTFY Ccurs) © 
SOSSSCSHSES CSE OSOS sososeesnsesesses oe, * 2900868 S0CS4EESS8 
e e s YE 
4 . 3 oene as 
e e e ° 
. x ° 2 JS ©.Xx. 
2 soee eo s ‘ 
‘~ s s . oese nd 
x * 84 6 . SSETFD x 
S800] | 2498000070 s - > sO J§ seccessy 
° YY we es osee e bd PESFY ° 
° A vY ENO °¢ ° s Ba fe td] 
bd ENTAY IN s . s PROTECT s 
: IOAR EAL : . ss INOIC ATOR Ons 
eessenecsoseoeses pa soncoosesss 
e PPYVERTICELELErerrrerrery be 
x FETCH ° 
goesen, ‘Tee Toes x 
nove 6 SOCKS O8OERR O4 
ct gaz BEL Bee Wee tJ : e SVC 2 s 
cs a FETCH 
ee : s SSASETFER 
: eeeseessesss coe 
eeeee089: Sesccees 
x 
e000 
s s 
2°63 
s Ps 
oee8 


188 IBM VSE/Advanced Functions LIOCS Volume 3 DAM and ISAM 


Licensed Program —- Property of IBM 


Chart DH. ISAM LOAD: SETFL Macro, Phase 3, $$BSETFG 
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Chart DL. ISAM LOAD: WRITE Macro, NEWKEY (Part 1 of 4) 
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Chart GM. ISAM RETRVE, SEQNTL: SETL Macro, $$BSETL1 (Part 1 of 5) 
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Chart GN. ISAM RETRVE, SEQNTL: SETL Macro, $S$BSETL1 (Part 2 of 5) 
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Chart GR. ISAM RETRVE, SEQNTL: SETL Macro, S$BSETLI (Part 5 of 5) 
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Chart HA. ISAM RETRVE, SEQNTL and ADDRTR: Subroutines (Part 1 of 3) 
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Chart MI. SSBOISO9: ISAM Open, Integrity Phase 1 (3 of 3) 
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PPENDIX Bs: MESSAGE CROSS-REFERENC IST 


r explanations and actions to be taken for the various messages, refer 


Fo 
to VSE/Advanced Functions Messages, 
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ote: The second digit of the message number indicates the type of DASD 
ile issuing the message. The file types are: 
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2 = ISAM file 

6 = Direct access - Input 
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Figure 113. Message Cross-Reference List (Part 2 of 2) 
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